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se SSCCSSSSSSCSCSSSFESCSSCSTOESSESEESEESESEES 
51 . oe 
SZ ® SU4WABY OF OPERATING INSTRUCTIONS © 
ss o = 
sé SOCHSSESSSSOSSSESSSESSHTEHSST SCOTCH SESESE 
as 
se 
$7 THE FOLLO#ING PROCEDUPE Can BE Stu TO FUN THIS DIAGNOSTIC 
se IN A DEVICE VERIFICATTOY “ODE, IF THe PROGPAY DUES NOT 
$9 FUN SUCCESSFULLY CONSILT THE FOLLOwING DOCUMENT FUR ASSISTANCE, 
od 
ol OPERATING PROCEVURES 
62 
63 1, LOAD THE PROGFAM USING NORMAL PROCEDUFES, 

4 

os 27. LOAD ADDRESS 2a¢ 

6 

°? 3, SET SWITCH PEGISTEFP TO SELECT THE PROPER 

8 VERSION OF THE POM UNDER TEST, 

9 (SEP INSTRUCTIONS IF A SOFT*®ARE SHITCH REGISTER 
74 18 10 &F WSFL,) 

71 

72 4, PPESS STAPT 

73 

74 S$, THE PROGRAM SHOULD TAKE ABOUT 1 SEC TU 

75 COMPLETE THE TEST AND PRINTS "END OF TEST", 

76 

77 6, IF THE PPOGPAY DOES NOT RUN AS DESCRIBED 

va ABOVE, CONSULT THE FULL OPERATING INSTRUCTIONS 

719 eHICH FOLLOW, 

he 

61 

e2 ® @ PAUTION @ @ 

#3 

es BECAUSE THE CONTENTS READ FPO” LOCATION 773024 

es OF THE “9341 CPTION IS CONFIGURATION DEPENDANT( SWITCH 
#6 REGISTER DEPENDANT), THIg§ LOCATION Tg NOT INCLUDED IN 
67 THE DATA CHECK, 

eh THIS LOCATION Cah BE VERIFIED BY EXAMINING IT Op By USING 
BY THE ALTERNATE STAPTING ADORESS(SEE SECTION 2,4,3) TO 
ou PRINT OUT THIS LOCATION, 
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GENFPAL PRPOCKAM INFCRMATION 


PROGRAM PURPOSE 


THIS DIAGNOSTIC PROGRAM 18 INTENDED [TO VERTFY THe 

KO” COKTENTS OF THE ROM BOOTSTRAP MOL'ILES, THE PROGRAY 
COMPUTES AND CHECKS A CYCLIC REDUNDANCY CHARACTER 

AND A LONGITUDINAL PARITY CHARACTER FOR THE CONTENTS 

OF THE FOM STORAGE AVAILASLE IN AN “9301 OF MQGAH MODULE, 


A SFPAPATE RONTINE INCLUDED ALLO#S THE USER TO TYPE 
THE CONTENTS OF THE ROM STORAGE ON THE TELETYPE AS 
AN AID TO DEBNGGING, 


SYSTEM PEQUIREMENTS 


HARD@ARE 


PDF/11 PROCESSUP 
TELETYPE Op EQUIVALENT 
4X OF MEMORY 

M9301 OF Mogee@ MODULE 


SOFTWARE 


eeeoee*ce 

THIS PROGRAM 18 WRITTEN 70 BE RUN AS A STAND@ALONE PROGRA*, 
HOWEVER, THF PROGRAM IS ODFSIGNED TO RUN UNDER AUTOMATED 
PRODUCT TEST SYSTEY (APT) I ALL THREE “ODES, 

THE PROGRAY CaN ALSO BE FUA UNDER THe ACT 11 MONITOR, 


FELATED DOCUMENTS AND STANDAPDS 


DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS PROGRAYMING PRACTICES 
DOCUMENT NO, 17583-00900 


APT INTERFACE SPECIFICATION, REV, 13 
DIAGNOSTIC HIERARCHY PREREQUISITES 


SSSSSFS®ee SESSSSESGe® SSESSSeseeeeee 
NONE, HOWEVER THE CPU 18S ASSUMED TO BE FUNCTIONING 


FAILURE ASSUMPTIONS 


THE PROCESSOR IS ASSUMED TO BE FUNCTIONING PROPERLY, 


SEG “ees 
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2, 


OPEPATING INSTRUCTIONS 


LOADING AND STARTING PROCEDUKES 


LOADING 


eeeeeteo 
USE NOR“AL PROCEDURES FOR LOADING DIAGNOSTIC PROGRAMS, 


NORMAL STAPT 


1, LOAC SOFTWARE S#ITCH FEGISTER (IF USED) To SELECT THE 
POM VERSION UNDER TEST, (SEE 2,3) 


2. LOAD ADDRESS 20¢ 


3, SET HARMwARE SwITCh REGISTER CIF AVAILABLE) TO SELECT Trt 
FOM VERSION UNDER TEST (SEE 2,3). 


4, START 
OPTIONAL START 


THE OPTIONAL STARTING ADDRESS IS USED TO TyPk OUT THE CONTENTS 
OF THF FO” FOP USF IN VISUAL VERIFICATION OR AS A DEBUGGING 
TOOL, 


USE THE SAMF PROCEDURE AS A NORMAL START EXCEPT USE 
AMDRESS 21¢ IN STEP 2, 


SPECIAL ENVIRON“ENTS 


THIS PROGRAM 1S wRITTEN TO COMPLY WITH ALL THE REQUIREMENTS 
OF THE APT INTERFACE SPECIFICATION, IT wILL RUN UNDER APT 
IN EITHER QUICK VERIFY, PROGRAM OR RUN@TIME MODES, 


THIS PROGRA“ 1S APITTEN TO COMPLY WITH THE ACTII/KA0P 
INTERFACE REQUIPEMENTS, 


WHEN PUPRNING TN ACTII GUICK VERIFY OR AXDOP CHAIN MODE 
(LOC, 42 NOT 4)» Of APT QUICK VERIFY AND PROGRAM MODE 

THE PROGRAM ATTEMPTS TO RUN aITHOUT OPERATOR 

INTERVENTION OR SWITCH REGISTER SELECTION, THE 

COMPUTED CRC 1S COMPARED AGAINST THE CRC FOR ALL KNOWN 
VERSIONS OF THE POm BOOTSTRAP, WHEN A MATCH IS FOUND THE 
VERSION OF THE MODULE IS TYPED FOR VISUAL VERIFICATION, 
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SEG eves 
PROGRAM OPTIONS 
eeeeet®o eseeeeee 
THE PROGRAM AITTOMATICALLY CHECKS FOR THE PRESENCE OF 
A HAROWARE SwTTCH REGISTER, IF NO RESPONSE IS FOUND WHEN 
ADDRESSING THE HARDWARE She 6177570), THE ADDSESS 
OF THE SOFTWARE Sep (176) IS SUBSTITUTED, 
FOP PROCESSORS *®1TH NO HARD*®APRE SHITCH REGISTER, THE OPERATUPR 
SHOULO SET THF DESIPED SwIITCH VALUE IN LOCATION 170 
WARNING. o. IN OPDERK TO ALLO® TESTING OF m7942e¥8 BOAPDS ON THE VI71, 
IF LOACTION 196 IS SET TU 6, THE SOFTHARE S#ITCH REGISTER wILL Be 
USED REGARDLESS OF HARDWARE SWITCH REGISTER AVAILABILITY, 
SWITCH SELECTION 
eeeee2® Seeeeee2@ 
THE SHITCH REGISTER (HARDWARE OR SOFTS@AFE) IS USED TO SELECT 
THE VERSION OF THE ROM BOOTSTRAP TO BE TESTED 
ACCORDING 10 THE FOLLOWING TABLE, NOTES THESE SETTINGS ARE 
OCTAL NUMBERS, THEY ARE NOT PARTICULAR SwIiTCHES SET TO A 
ONE, FOR EXAMOLE, TO SELECT THE “930@1¢¥H VERSTON, SET 
SWITCHES 83 AND #4 IN THE SWITCH REGISTER, THIS 
CORRESPONDS TO AN OCTAL 12, 
Sef MODULE VEFSION 
San SQV eBae2en Zee 
1 MOBIL YA 
Z M93010¢x8 
3 M93@1¢xC 
4 *94are@5eYA (OR YC) 
5 M9301 0°%F 
6 M79420¥8 
7 ¥93010xR 
10 M94uG0eYH (OR YF) 
11 M9311 
12 M93¢1¢¥H 
13 9301 eYE 
14 M931 eX 
If THE CRC AND LPC FOR NEW VERSIONS ARE KNOGN BUT 
NOT IN THE ABOVE TABLE, SET THE SWITCH PEGISTER TO ZERU 
AND ANSWER THY TELETSPE DIALOG, 
TO DETERMINE THE CRC AND LPC FOR A NEW VERSION, START 
THE DIAGNOSTIC AT 200 #ITH SeRed, ANSWER @ TO THE 
REQUESTS FOR THE LpC AND CRC, THE RESULTING MESSAGES 
WILL INDICATE THE CORRECT FUTURE RESPONSES FOR CRC AND 
LPC PROVIDED THE TEST IS RUN ON A KNOWNeGOOD MODULE, 
TELETYPE DIALOG 
eeceee®oee seeee2® 
SEVFKAL QUESTTONS ARE ASKED OF THE OPERATOR IN ORDER EL 
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TO OBTAIN SUFFICIENT INFORMATION FOR TESTING A ROM MODULE 
NOT PREVIOUSLY SUPPORTED IW THE DIAGNOSTIC, THE OLALOG 
18 INITIATED TF THE PROGRAM IS STARTED WITH THE Sak @ 8, 
ALL FESPONSES APE IN OCTAL AND TERMINATED BY A 

CARRIAGE RETURN, 


ALL RESPONSES APE CHECKED FOR VALID OCTAL NUMAERS, 

IF AN ILLEGAL CHARACTER IS TYPED, THE PROGRAM wILL TY¥Pe 
A *?%, CARRIAGE RETURNeLINE FEED AND 

AWAIT THE PROPER INPUT, 


IF A “MISTAKE TS NOTICED BEFORE THE CARRIAGE RETURN 15 USED 
TO TEPMINATE THE INPUT, A RUBOUT CAN 5E 
USED TO DELETE “MISTYPED INPUT, 


1, TYPE CPC VALUES 

THIS REGUESTS THE VALUE OF THE CYCLIC REDUNDANCY CHECK 
PREVIOUSLY CALCULATED FOR THIS VERSION OF THE ROM MODULE, 
If IS THE VALUE AGAINST wHICH THE UNIT UNDER TEST°’S CRC 
eILL BE COMPARED, 


2. TYPE LPC VALUE; 

THIS REQUESTS THE VAULE OF THE LONGITUDINAL PAPITY CHECK 
PREVIOUSLY CALCULATED FOr THIS VERSION OF THE RO” MODULE, 
It 16 THE VALVE AGAINST WHICH THE UNIT UNVER TEST°S LPC 
weILL PE COMPARED, 


3. TYPE STARTING ADOR, OF 15T FOM ADDR, SPACES 

THIS QUESTION REFERS TO THE FACT THAT THE RUM SPACE IN 

APOM BOOTSTRAP MODULE 15 DIVIDED INTO g DISTINCT ADDRESS SPACES, TYPE 
THE STARTING SDORESS OF THE 4ST RANGE OF ADORESSES, THE 

STANDARD “9301 & “9400 BEGIN AT 173000, 


4, TYPE LENGTH (#@yTES) OF 1ST ROM ADDR, SPACES 

TH1g REQUESTS THE LENGTH OF THE 1ST GrOUp OF ROM ADDRESSES 

IN BYTES, THF STANDARD M9301 & M94H@ HAVE AN INITIAL ADDRESS SPACE 
OF 100@ BYTES, IF THIS SECTION OF ADORESSES [tS NOT 

USED BY THIS VERSION, ANSWER @ TO THI§ QUESTION, 


S, TYPE STARTING ADDK, OF 2ND FROM ADDR, SPACES 

THIS REFERS TO THE FIRST ADDRESS IN THE SECOND DISTINCT 

GROUP OF ROM ADORE SSES, THE FESPONSE FOR A STANDARD 

"9301 & “9400 WOULD BE 165¢0e, 

6, TYPE LENGTH (BYTES) OF 2ND ROM ADOR, SPACES 

THIS PEQUESTS THE LENGTH OF THE 2ND GrOUp OF ROM ADDRESSES 

IN BYTES, THE STANDARD M9301 & M94H@ HAVE A SECOND ADDRESS SPACE 
OF 1096 BYTES, IF THIS SECTION OF ADORESSES I§ NOT USED 

BY THIS VERSION, ANS#ER g TO THIS QUESTION, 


EXECUTION TIMES 


THE DIAGNOSTIC COMPLETES 1 PASS IN LESS THAN 1 SEC, 

ONCE THE INPUT DIALOG HAS BEEN COMPLETED, 

THE PROGRAM WILL HALT UPON COMPLETION, HOWEVER, IF RUNNING 

UNDER APT THE PROGRAM WILL CYCLE CONTINUOUSLY, Fi 


ee , ,, 


+ mmm 
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Stu 4ee7 


ERROR [KF ORYATION 


WHEN THE DIAGNOSTIC VLETECTS A DISCKEPANCY BETWEFA TKE 
EXFECTED AwO COMPI'TED CRC OF LPC BOTH ARE PRINTED 
OW THE TELETYPE, 


ANY DISCREPANCY I% THE LPC CAN ASSIST IN ISU0LATING THE 
PROBLEw 70 TRE POY IC, 


UNDER AFT THE ERPOR IS INDICATED BY DEPOSITING ERROP INFORMATION 
IN THE APT “ATLBOX BEFURE HALTING, 


PROGRESS REPORTS 


AT THE EWD OF EACH PASS THE PROGRAM INCKEMENTS TO THE 
LOCATION PASS *HICH IS IN THE APT MAILB@OA, THIS 
LOCATION WILL AL#AyS CONTAIN THE NUMBER OF PASSES 
COMPLETED, PASS 15 PESET #ITH EVERY KESTART, 


ADDITIONALLY, THE “ESSAGE "END OF TEST" 1S PRINTED On THE CONSOLE 
TELETYPE AFTER EACH PASS, NOPMALLY ONLY ONE PASS NEEDS 
TO RUN TO VERTFY THE MODULE, 


TROUBLE SHOOTING 


THE ALGORITH™ FOR COMPUTING THE CRC IS The SAME AS THAT 
USED ON QeTRACK MAGNETIC TAPE wITH ODD PARITY, THE 

CrC 16 CALCULATED ON A BYTEeBYeBYTE BASIS, wHILE THE 
ALGORITHM Ig SUCCESSFUL IN DETECTING MULTIPLE ERRORS, ITS 
USE AS A DEBUGGING AID Ig LIMITED, 


THE LPc IS CALC'LATED BY ASSEMBLING THE XOR OF EVERY 

wORD IN THE ROM, «wHILE ONLY USEFUL IN CATCHING AN 

OOP NUMBER OF ERRORS IN EACH BIT POSITION, IT IS VERY 

USEFUL IN JSOLATING THE PROBLEM TO A CHIp, By LOCATING wHICH 
BIT POSITIONS APE IN DISCREPANCY, THE CORRESPONDING kOM 
CHIPS CAN BF TSOLATED, 


IF NO OTHER CLUES CAN BE OBTAINED, START THE PROGPAY 


AT 21@ AND COMPARE THE PRINTOUT OF THE COVE wITH THE 
LISTISG FOP THE VERSION BEING TESTED, 


® © CAUTION @ @ 


GECAUSE THE CONTENTS PEAD FROM LOCATION 773026 

OF THE "9301 OPTION IS CONFIGURATION DEPENDANT( SWITCH 

REGISTER DEPENDANT), THI§ LOCATION I§ NOT INCLUDED IN 

THE DATA CHECK, 

THIS LOCATION CAN BE VERIFIED BY EXAMINING IT OR BY USING 

THE ALTERNATE STARTING ADDRESS(SEE SECTION 2,1,3) TO 

PRINT OUT ThIS LOCATION, C1 
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LISTING 


eENDR 


AL 
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376 
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388 
3e1 
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385 
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eeaeit 
we0v12 
e@e715 
680200 
177776 


177774 
177772 
17757e8 
1775708 


903790 
94aee1 
o8d0e2 
000003 
080004 
040005 
983080 
@40ee7 
900686 
0480907 


849999 
648048 
903190 
000140 
900200 
@00240 
683300 
9006340 


120090 
o44Vve0 
024660 
el acov 
004000 
002004 
601008 
0864an 
009200 


-- 
. 


S@INITIAL ADDFESS OF THF STACK POINTER See 1124 ove 


s9BASIC DEFINITION OF ERROR CALL 
s96ASIC DEFINITION OF SCOPE CALL 


s3CODE FOR HORIZONTAL TAB 

psCODE FOP LINE FEED 

a9CODE FOR CARRIAGE RETURN 

99CODeE FOR CARRIAGE RETURNeLINE FEED 
sePROCESSOR STATUS *ORD 


39STACK LIMIT REGISTEP 

psPROGRAM INTERRUPE REQUEST REGISTER 
sSHARDWARKE SwITCH REGISTER 
SPHARDPARE DISPLAY FEGISTEP 


s9GENEPRAL 
3 9GENERAL 
2 9GENERAL 
99GENERAL 
3 sGENERAL 
99GENEFAL 
s9GENERAL 
29GENERAL 


REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
PEGISTER 
REGISTER 
KEGISTeR 


s9STACK POINTER 
spPROGRAM COUNTER 


10ns 

spPRIORITY LEVEL 
seCRLORITY LEVEL 
ssPRPIORITY LEVEL 
ssPRIORITY LEVEL 
sePRIORITY LEVEL 
sePPLORITY LEVEL 
ssPRIORITY LEVEL 
sePPLORITY LeveL 


“~oeVewne 5S 


15324 PACE 9 
eFNABLE ABS 
el IST ME 
e*LIST MC,“D,CNL 
6Seksa 
eSBTTL BASIC DEFINITIONS 
STAC&s 1100 
etQUIV E”“T, ERROR 
eZ Qtiv OT, SCOPE 
PeMISCELLANEOUS DEFINITIONS 
HTs ii 
Lfs 1? 
Crs 15 
CrLlL*fs 2°@ 
Fss 177776 
eEQUIV PS,PS* 
SIKL“Ts 177774 
PIkGs 177772 
OSers 17787¢ 
ODIS®s 177570 
S®GENFRAL PURPOSE REGISTER OEFINITIONS 
kus eo 
Fis $1 
R28 $2 
Kjs $3 
hae G4 
RSs es 
R68 %6 
PIs %7 
SPs Be 
PCs a7 
s*®PRIORITY LEVEL DEFINIT 
Peds « 
Pris 40 
PR2s 19¢ 
PR3s i4e 
Feés 220 
PRSs 240 
PR6s 370 
PRIis 340 
s®°SWITCH REGISTER" SWITCH DEFINITIONS 
$4158 190980 
Svidés arene 
SWi3s 2°40 
5612s 10¢%e 
S¥lis 4400 
S4les 2°00 
S*c9%s 10¢¢ 
Sutes 4%¢ 
Severs 2v¢ 


Ste vess 


- a A 
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eoelae 
Gorvav 
POO020 
600010 
Pl | 
@60002 
dace 


100094 
a4eeed 
026700 
alatve 
994eee 
0462400 
#?14"89 
069400 
eee2er 
e*viou 
odee4e 
900020 
efeein 
eeere4 
69262 
evrrel 


MA2004 
090016 
eveei4 
o02e14 
@60014 
088226 
g0edas. 
640430 
o0e¢034 


ae, 
>. 
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Srvés 
SevSe 
Se¢4e 
See is 
Se?2?s 
Seis 
Sweus 
eFOUlV 
eEGUIV 
efQUlV 
eEQUIV 
eEQUIV 
eFOULV 
ef OQUIV 
eEQUIV 
eEOQUIV 
eEQUTV 


s@DATA 
BIT1Ss 
BITI4s 
ClT1i3s 
BI1Ti2Zs 
61Tiis 
BITigs 
BIT#9e 
bITeRe 
BITa7s 
bITe6s 
e#ITOSs 
bITAés 
BITe3e 
B8ITe2@s 
8I1T#is 
bITvos 
eEGUIV 
eFQUIV 
eFOUTYV 
eEQUTY 
eEQUIV 
eEOQUIV 
eEGUIY 
efQUIV 
eEQUIV 
eFQULY 


ive 

a? 

74 

1¢ 

a 

2 

| 

S*O9, 89 
Savs,Swe 
$e¢7,S07 
S06, Sune 
84e@5,505 
Sae4,5n4 
Se¢3,8w3 
Se¢2,5n2 
S¥e1,501 
S4eu,Sne 


BIT DEFINITJONG CBIT?e TO BITIS) 


1°¢e0e 
4ce0¢e 
2ever 
1eove 
aeea 
240¢ 
1ve4 


6ITO9,B1T9 
BITes, BITE 
BITO7,61T7 
KIT#6,61TS 
bITS$,61TS 
BITH4,b1T4 
b1TH3,61T3 
B1TH2e61T2 
BIT@1,61T1 
bITOe,B81Te 


s*®BASIC "CPU" TRAP VECTOR ADDRESSES 
EkRVECS 4 


RESVECs 190 
THI TVECs14 
TRIVECSs 414 
BPTVECSs 14 
IOTVECs 22 
PWRVECS 24 
EMTVECSs 3¢ 
TRAPVEC#34 


g9TIME OUT AND OTHER ERRORS 
soRESERVED AND ILLEGAL INSTRUCTIONS 
g9°T* BIT 

psTRACE TRAP 

s9BREAKPOINT TRAP (8PT) 
ssINPUT/OUTPUT TRAP (IOT) #e*#S5COPEse 
s9POWER FAIL 

ssEMULATOR TRAP (EMT) @@ERRURG® 

sp" TRAP" TRAP 


SEQ veie 
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407 
anR 
ae8y 
a9” 
a91 
492 
493 
494 
495 
496 
497 
49a 
499 
Soe 
Sei 
$¢2 
$03 
Sve 
$es 
Sv0 
507 
&uk 
$09 
Sie 
$i 
$12 
$13 
$1¢ 
$435 
$16 
$17 


518 
319. 


S2¢ 


7 ae 


$22 
523 
$24 
$25 
526 
$27 
526 
529 
$30 
531 
532 
533 
534 
535 
536 
$37 
$38 
539 
$40 
541 
$42 
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B70¢60 
wisrto4 
940248 
a80eod 


Cd chek ad 


oeoi74 
000204 
e9aeed 
000202 
~eSeo7 
906167 
012767 
600167 


177776 
90 ae34 


081000 
177578 
177870 
173092 
eF1eoe 
165069 
ov1e6ed 
addr yue 
o98Fne 
ovevroe 
eseteod 
ed06e0 
evens 
09e¢ao 


001032 
090046 
o22¢6e 
BbdeS2 
Hd00oe 
we1e32 


601732 
weee24 
08a2ee 
B20044 


000624 
090666 
e0eee! 
000654 
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BASIC DEFINITIONS 


TKVECs 646 seTTY KEYBOARD VECTOR 

TPVECs 64 seTTY PRINTER VECTOPR 

PIRQVFC8246¢ pyCROGRAM INJERRUPT PEQUEST VECTOR 
se? 


eSETT: TRAP CATCHER 


se 
seALL UNUSED LOCATIONS FROM 4 © 776 CONTAIN A %,o2,HALT" 
PeSFQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
peLOCATION 9 CONTAINS @ TO CATCH IMPROPERLY LOADED VECTORS 
98174 , 
DISPRFG: ,#ORD @ p2SOPTHARE DISPLAY REGISTER 
BHKEG; ORD @ sPSOFTAARE SWITCH REGISTER 


e82¢0 
CLP TYPOUT 
Je START 
“OV 61, TYPOUT 
Jue STAPT 
PS8177776 
TRAPVECS34 

21°00 

Seaky 177570 

DISPLAY: 17757¢e 


KOMSAis 1730¢¢ 
DATLNGs $12, 
ROMSA2s 165000 
DATLN2: 512, 
XORSs 
EXCRC,; 
EXLPC: 
ACTCRC8 
ACTLPC3 
PARCNT?$ 
TYPOUTs 


eS6TTL ACTIL HOOKS 


sHOOKS REQUIRED BY ACTI1 


ssvPCcs, ;SAVE PC 

346 

SENDAD ;21)SET LOC.46 To ADDRESS OF SENDAD In ,SEOP 
852 

:#ORD ) 322)SET LOC.52 To ZERO 

eB6SvPC 33 KESTOFE PC 


eSBTTL APT PARAMETER BLOCK 


sSET LOCATIONS 24 AND 44 AS REQUIRED FUR APT 


o6ks, p9S°V@ CUPRENT LOCATION 


0824 g9SET POwER FAIL TO POINT TO START OF PROGRAM 


200 s9FOR APT START UP 
2844 g9POINT TO APT INDIRECT ADDRESS PNTK, 


SEG ve@l} 


eMAIN, MACYS1 2701006) 24eMAY"77 15924 PACE 17 


DZMGAD,Pt4 24eMAYo7? 15322 APT PARAMETER BLOCK SEQ weléa 
$43 9009044 941632 GAPTHUP ge POINT TO APT HEADER SLOCE 
544 091¢32 088K SSRESET LOCATION COUNTE® 
$45 FP PSSSSSOESSSSHSHSSSSSHOHOSSFSHSHSHOHVHSSHOTSHSSHHHHSHSH SHOE HOOECOOS 
$46 sSETUS APT PAFANETFR @LOCk AS DEPINED IN THE APTePDely OLAGNOSTIC 
$47 sINTEBFACE SPFC, 
$48 
$49 981032 SAPTHDE 
$5@ 681032 gee702 GHIBTS:s , WORD v gpT#O HIGH BITS OF 16 BIT MAILBOA ADUF, 
551 #01034 901646 SYBADRe WORD SAIL pp ADDRESS OF APT MAILBOX (BITS G15) 
$32 #001036 900002 6TST“™, ,#0FD 2 a9RUN TIM OF LONGEST TEST 
$$3 #81040 #6002 SPAST™s ,#URD ~ ggPUM TIME IN SECS, OF 1ST PASS ON 4 UNIT (QUICK VERIFY) 
554 981042 80000 SUNTT%g , WORD ppAOVITIONAL BUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
$55 #1044 peoe14 ORD SETENDSOMAIL/2 psLENGTH MALLOOA*E TABLE ( #ORDS) 
550 eSOTTL APT MAILFOXCETABLE 
$$7 
$$e PPPS SOSESSSSSES SOO OSHOOSSGOSSOOTSSEHESOETOS SOHO ESOOS DESEO SEERE® 
$59 eo EVEN 
564 991046 SMAILs seAPT MAILBOX 
561 #1046 94000 6*SGTYs ,#ORD AMSGTY g MESSAGE TYPE CODE 
$62 #010S¢ pevute? SFATALS ,#ORD AFATAL 4g 98 ATAL ERROR NUMBER 
So} 801052 pveend STESTNe ,¥ORD ATESTN jg 3TEST NUMBER 
504 #01954 gare? SPASS; ,WORD APASS 99P4S5 COURT 
$¢5 601756 pu od SDEVCTs WORD ADEVC? g,DeVICe COUNT 
$66 ov81?69 geedee GUNIT; ,#ORD AUNIT 99170 UNIT NUMBER 
S07 #01262 wneover SYSGADs , WORD A™SGAD g3¥ESSAGE #00RESS 
$08 981064 p80000 S*SGLG: WORD AMSGLG 4_9MESSAGE LENGTH 
$09 #071066 GETABLEs ppAPT ENVIRONMENT TAGLE 
$76 901066 00 GENVs eBYTE AENV PPENVIRONMENT BYTE 
$71 061067 Coe GENVM, ,S8YTE AENVE psENVIRONMENT MODE BITS 
572 #01070 peeve? GSREG: ,#OPD ASHWHEG g,APT SAITCH REGISTER 
573 981072 peeves SUSWR, WORD AUSHR s9USER SwHITCHES 
574 9881074 geeve0 sCPUOPs ,#ORL ACPUOP 4g,CPU TYPE, OPTIONS 
$75 7° BITS 1SejisCPL TYPE 
$76 3° 11/04001511/05802611/20803,11/408046011/45805 
$77 7° 11/70806, PLGs?7,Qs10 
578 3° BIT LOREAL TIME CLOCK 
$79 ef BIT QsFLOATING POINT PROCESSOR 
$80 7° 6IT SeMEMOPY MANAGEMENT 
561 901076 GETENDS 
5e@2 o“EXIT 
$83 
$84 901976 905067 177746 START: CLR SFATAL sCLEAP ERROF NO, 
$@5 @01102 @e5¢67 177740 CLR e“SGTYP ;CLEAR MESSAGE TYPE (APT) 
566 @01106 612707 g#eve1 177736 MOV e1,8TESTN ;SET TEST NO, 
$67 eSBTTL INITIALIZE THE CO¥MON TAGS 
See®@ 901114 612796 980500 mov 65e0,8P s9SETUP THE STACK PUINTEP 
$89 peINITIALIZE A FEW VECTORS 
$9@ @6112¢ 612737 @e8457@ 990934 MOV OSTRAG, @sTRAPVEC 3, TRAP VECTOR FOR TRAP CALLS 
$91 91126 612737 #60340 w70036 MOV 6340,@eTRAPVECe2;LEVEL 7 
$92 901134 012737 004412 070024 MOV OSFWRON,@ePHRVEC ;,PUWER FALLURE VECTOR 
593 #01142 612737 #0349 #e¢226 MOV 9340,@0PaPVECe2 ssLEVEL 7 
594 p9SIZE FoR A HAPDWARE SWITCH REGISTER, IF NOT FOUND Orn It IS 
$95 pssEQUAL TO A "ei", SETUP FOP A SOFTWARE SWITCH REGISTER, 
$96 901150 613746 a¢9004 KOV G@sERRVEC,°(SP)  33S5AVE ERROR VECTOR 
$97 01154 612737 @0121¢ s#ee%e4 MOV 6648, 00FRRVEC 33SET UP ERROR VECTOR 
$98 #01162 0612767 177870 177640 hOV eOSeR,S4F gsSETUP FOR A HARUWARF SWICH REGISTER l 2 





SS SSS Sd 


eMAIN, MACYS) 2701096) 24eMA¥*°77 15224 PAGE 13 
DzZMOAD Pag 24e"AYo7? 15922 INITIALTZE THE COMMON TAGS Sto ee13 
$99 901170 612767 177574 «177604 MOV @ODISS,OISPLAY s3AND A MARKDAARE VISPLAY PEGISTEP 
6eo0 @01176 922777 #177777 «177574 cP #o1,¢sne seTKY TO PEFERENCE HAPOWARE Soe 
eel @01204 #01012 RNE 668 gPBPANCH IF NO TIMEOUT TRAP OCCURRED 
402 s7AND THE HARDWARE SwP IS NOT @ ey 
e?3 @81246 82493 6P 6s gsBRANCH IF NO TIMEOUT 
644 @01218 12716 991216 6463 meV 6658,(5") s35ET UP FOR TRAP RETURN ‘ 
605 Ge1214 e#nre2 FTI 
6¥6 001216 612767 990176 177554 656% MOV #SWPEG,Saa grPOINT TO SOFTWARE Swe 
6@7 €91224 012767 e174 17758¢ vOV @OISPREG, DISPLAY 
606 #01232 12637 evored 0683 MOV (SP)@,@8EPRVEC sgheESTURE EPROR VECTOR 
bed 
61% ©801236 pesee? 177612 CLF SPASS s9CLEAR PASS COUNT 
611 901242 132767 g¢e200 177647 erTe CAPTSIZE,SENV™ ss TFST USER SIZE UNLER APT 
612 #81250 #01483 BEG 678 2¥ES,USt NONCAPT SeHITCH 
613 001252 612767 ag1e7@ 177520 Mov OSSHKEG, SHR 398O,USE APT SwITCH KEGISTER 
614 901260 678% 
#15 w8120¢ 626727 176556 072460 CMP 42, ¢6ENDAD rACT AUTO mUDE? 
616 901266 pvi4e2 Bey FESTRT sY¥IF SOs 6k 
617 #01274 104401 TYPE 
618 981272 965260 TITL 
619 
626 901274 123727 #00176 one0e6 RESTRT: cCrPB 64176,66 $18 SOFTWARE S#ITCH PEGISTEK se? 
621 @01382 pe1683 BNE is s1f NOT, TEST NORMALY 
622 0091304 612767 680176 177466 MOV OSHPEG, SHR gIlf §0 USE THE SOFTWARE SWITCH REG 
623 981312 w177e@ 177462 183 MoV OSHP, Pe ;GET SwR 
624 w01316 901424 BEQ GETIN s1F ZEROs GET INPUT 
625 001322 #46300 ST2s ASL Re 
626 091322 #16467 904712 1774720 MOV TXLPC (CRA), EXLPC sFETCH EXPECT, Lec 
627 0133¢ ot6¢07 004644 177460 MOV TACPCCR@),EXCRC sFETCH EXPECTED CRC 
628 #201336 016067 9046762 177442 wov TOL™1 (RO), DATLMY sPETCH 16f LENGTH 
629 981344 @16¢67 @85938 177432 MOV TR™SA{ (Re), ROMEAY sFETCH 181 STARTING ADDR, 
630 601352 10067 weSe76 177432 MoV TOLNQ¢RA@),DATLNQ sFETCH 2NU LENGTH 
631 #0136@ 916667 0095144 177422 vov TRYSA2( RG), ROMSAQ sFETCH 2ND STARTING ADDR 
632 901366 9094590 BR CHECK 3GO0 COMPUTE 
#33 01370 857607 176446 GETINs TST 42 pUNDER ACK AUT ACCEPT? 
634 901374 @v1045 BYE CHECK iF $0; BK USF DEFAULT PARAMETERS 
635 001376 122767 o@@001 177462 CMPE 61,6E"V gUNDER APT? 
636 01404 yo14et BEG CHECK 31f 50s BR 
637 901406 85767 177416 TST TYPOUT sROM TYPE OPTION 
638 901412 971412 BNE GFT2 sIF SOg OBR 
639 pe14i4 174491 TYPE 
640 901416 65273 GETCRCE 
641 ©0142¢ 144497 RDOCT 
642 901422 912607 177370 MOV (SP)¢,ExCPC pSTORE EXPECT, CRC 
643 #01420 104461 TYPE sTXYPE LPC INPUT REQUEST 
644 901434 905317 GETLPC 
645 901432 104497 ROOCT 
646 901434 912667 177360 MOV (SP)¢,EXLPC gSTORE EXPECTED LPC 
047 wel44e 104401 GET23 TYPE 
648 981442 #05477 SAL sREQUEST 1ST ADDRESS SPACE 
649 981464 104497 ROOCT pINPUT SA 
65@ 901440 612067 177332 “ov (SP)¢,ROMSAI 
651 @01452 144401 TYPE pREQUEST LENGTH OF 15T ADDR, SPACE 
652 001454 905637 SIZ61 
653 001456 104467 KDOCT sINPUT LENGTH 


654 ovltee 012667 177322 MOV (SP)¢,DATLWI M1 





oMATN, 


MACYA1 2701706) 


DZMOAD, P44 


#55 
656 
6s? 
6$8 
659 
ber 
661 
662 
6e3 
664 
#e5 
6oe 
te? 
Bae 
609 
670 
671 
672 
673 
€74 
675 
67¢ 
677 
#7 
e793 
tee 
681 
662 
ea3 
ees 
66s 
686 
68? 
648 
oey 
49e 
69! 


¢96 
699 


Tod 
7S 
7e6 
7e7 


me1464 
weltes 
ed1l47e 
e147? 
ov1ltTe 
#61500 
#015282 
we1se4 
oo1sie 
eo1s¢e 
ee1Sio 
e01$22 
meis2s 
wois3ag 
eA1s3e 
eois4e 
#e1s64 
evisse 
owissé 
#01564 
e¢1se2 
viS66 
ev1$72 
971576 
od16ed 
wrleesd 
e#1018 
wslei¢ 
wile 
me1o22 
edlede 
#01032 
#71636 
Owloty 
ae1644 
o7160S2 


o4iesa 
w1ess 
#40106 
*o1ce4¢ 
#41666 
ovlele 
#41072 
#01076 
901789 
ooi?26 
eeirie 
@01716 
01720 
@1740 
ovi734 


901736 
oe17464 
or17ds 


24ehMAYe77 


24e¥AVO77 15322 


Va4eet 
oess$7 
1844a7 
vi2ee07 
18441 
ees7a7 
194407 
712667 
478767 
aei4dea2 
ofete? 
aeSeel 
wesee7 
etevaa 
eei4a3 
eierveai 
eva7e7 
e1wé67yel 
ete7ad 
grve2as 
roe767 
eto7veal 
ole7e¢ 
ov1422 
pee7e7 
*1ée7at 
wtevas 
e2eo2es 
004767 
9227¢7 
eeieed 
pes767 
£61402 
e167 
020767 
wei43i 


tease] 
ges34a3 
clelés 
14492 
104491 
wes4ei2 
10746 
194432 
a2¢727 
woieard 
122767 
oe@1¢e67 
e12767 
#12767 
fy ela ed 


926767 
601431 
124431 


177312 


177322 
177314 


ver66® 
177274 
177272 
177250 
177248 
CRs | 
177230 
177224 
eesS6 
177216 
177244 
e¢e27* 
17728 
177176 


a@eS22 
efvrevl 


170204 


20656 
177146 


177132 


1771324 
170136 
aoeve) 
@40002 
¥eere! 


177962 


1%374 


Pace 


i) 


INITLIOLIZ® THE 


C ECKS, 


is: 


177235 


18% 
1771S8 CHis 


ee2voeu 
17718¢ 
477922 183 
177912 
177054 Cris 


Tyee 
Si? 
FMOCT 
FOV 
Ty 
Sizte 
PO OCT 
“oy 
TST 
the 
hed 3 
cle 
SLA 
wow 
REG 
eoyv 
J SI 
mOV 
MDV 
AS*Y 
Jet 
"OV 
“ov 
SEQ 
J&k 
"ov 
anv 
ASk 
JSr 
CcYrs 
BEu 
TST 
BEY 
JP 
c™P 
BEG 


TyPe 
EXCRFG 
BOW 
Typoc 
TYPE 
ACC R¥G 
voV 
Typo? 
c™e 
BEG 
MPR 
ONE 
MCV 
eoy 
HALT 


cur 
bEQ 
TYPE 


(SP) eo, PO'SR2 


(St )¢,DaTing 
Treour 

is 

TYPROY 
AcTcRe 
aACcCTLee 
DATLNG, Fe 
CHa 
FOMSAG, PY 
pc,cer 
ROMER, BY 
PATI Ng gee 
i) 


FOMSA2,®4 
DATLN9O, Fe 
Re 

ec, Leer 
81,8FNV 
1$ 

42 

cy 
AUTACT 
EXCRC,ACTCRC 
78 | 


ExceC,e(SP) 


ACTCKe,°(SP) 


42, AEF NDNAD 
is 

#1,8ENV 
CKy 
@2,SFaTAaL 
#1,8“4sGTiP 


ACTLPe,FALPC 
cha 


Seo velée 
pPeGheS? START ADDF, FOP JNU SPACE 
sINPUT Sa 
pPREGUEST LENGth OF gnD SPACE 
pINPUT LESGIF 


218 TYPOUT KEQUESTED? 

yeRANCH JP NOT 

360 TYPE UU POM 

;CLEAR STORAGE FOR ACTUAL CRC 
sCLEAB SJURAGE FOR ACTULAL LPC 
3SeT LeNGTh OF 1ST POM SPACE 

218 SO VERSION SELECTED? Fr 
sPCTINT TO START CF 3ST PU SPACE 
sCOMPUTE FIRST HALF OF CRC 
12O0ler TO START OF 1ST PUM ADDRS. 
;SET LENGTH OF 1ST FOM ALUES, 
sCONVERT 10 ankDS 

sCOMPUTE FIRST HALF UF CRC 
sPUINT TO Q4L FOM ADDRS, 

sSE1 LENGTH OF 2hD FROM ADDS, 
sOP JF TreIS SPACE HOT USED 
gCOPPUTE REMATNULEP OF CRC 

;POINT TO START OF ghD PUM ADDS, 
3StT LENGTR OF 2ND ROY ALUFS, 
sCONVERT TO wORDS 

sCOMEUTe RE“ATNDER OF LPC 

pUNDE® APT? 

31% SOs bk 

sUNDER ACT AUTO aCCEPT? 

s1f SOls) BR 


;COMPUTED @ EXPECTED ? 
;T1F SOs BR 


sTYPe CRC EPROF “ESG, 


sPLUT EXPECT CrC ON STACK 
sTYPE EXPECTED CeC 
sTYPE ACTUAL CRC MESSG 


gPUT ACTUAL CRC ON STACK 
sTYPE ACTUAL CkC 

pUNDeP ACT AUTO MODE? 

sIf SOs 6k 

;UNDER APT? 

;IF NOTe 6R 

;”OVE TO MALLROX ERROP NO, 
;SET “AILSOA FOR FATAL ERROR 
3CRC ERROR 


sCOMPARE CAPT, LPCSACTUAL LPC 
s1lb SUt bk 
;TxyPe LPC EKROR MESSG, 


Ao 


aes 


& 
& 


oVAIN, 


MACY11 2704@@6) 


DZ™9aD, P14 


711 
M12 


01750 
91752 
e817S6 
od1760 
o017e?2 
061704 
wA1778 
001772 
@62eaa 
e©o2e@¢2 
€82610 
we2¢12 
pezd2e 
02026 


022030 
002036 
082043 
@02442 
ed2044 
we20Su 
692454 
9@2¢56 
002064 
002062 
062064 
@e20e0 
9020723 


602074 
#82162 
002104 
e@d2110 
#02112 
962114 
#82116 
002124 
002122 
#82126 
682132 
ed2134 
902136 
82140 
062144 
902146 
062150 
702154 
062156 
042162 
602106 
602174 
02174 
002176 
9022¢0 
#02204 
092214 


24eMAYo?7 


2GeMAYo7? 95872 


#35366 
#16740 
104402 
104401 
005435 
316740 
104402 
620727 
7ei14e4 
122767 
eeiee/ 
e12767 
@12767 
eeeee" 


@26727 
041492 
184491 
eeS4to7 
695207 
g1379e0 
e814a5 
voces 
ee4719 
e0324¢9 
9022462 
600240 
008167 


616767 
111104 
@227e1 
pe1ea4 
085300 
608309 
@0S721 
o9e778 
604767 
904767 
692241 
4do¥g4 
103014 
e32704 
20824) 
610465 
642795 
005105 
#42705 
942764 
956504 
219467 
665300 
901442 
900167 
016794 
903167 


177042 


177034 
176"44 
oeedi 
02083 
eceres 


176886 


1774084 
@0e°42 


177280 
176722 
173024 


177703 


177783 
@@ee74 


176620 
177676 


176604 
176600 


ee2eoer 
177054 


177430 
1774208 


#372"68 


176712 


15324 


PAGe 15 


INITIALIZE THE CO¥WON TAGS 


CK23 


SENDADS 


GOAGING 


CPCs 
CLes 


CL3: 


CLis 


CL2s 


CLLAST3 


EXLPYG 
eny 
TyFoe 
TYPE 
ACLP*G 
MOV 
Tyre 
cP 
6FG 
Cre 
BRE 
“OV 
MOV 
HALT 


cw 
PEG 
TYPE 
EOTST 
Inc 
MOV 
BEG 
RESET 
JSR 
NOP 
NOP 
NOP 
JMp 


MOV 
uOvB 
cue 
BNE 
DFC 
bEC 
TST 
PR 
JSP 
JSP 
eLe 
ROR 
Bec 
Bris 
cLc 
MOV 
prc 
CoM 
bIC 
BIC 
618 
MOV 
DEC 
bEO 
JMP 
MOV 
CoM 


FALOEC, ef SP) 


ACTLPC,©(SP) 


47, 88F NDAD 
is 

84,8ENV 
CK 
#3,e8FaT&L 
e1,g"eGTYe 


42, °@ENDAD 
is 


PASS 
@242,00 
GOAGIN 


PC, (Re) 


FESTRT 


ACTCRC,XKOPS 
(R1i).R4 
6173024,K1 


PC, PARITY 
PC, X0R 


R4é 
cla 
404,46 


R4,FS 
€177703,K5 
RS 


€177703,K5 
074,R4 
RS,P4 
R4,XORS 


CLe 
XORS,?4 
AORS 


sPUT FAPECTED LPC ON STACK 
sTYPe ExpeCien Lec 
gTyPe ACTUAL LPC MESSC, 


sPUT ACTUAL Let ON STACK 
:TYPE ACTUAL LPC 

;UNDEw ACT AUTO “ODE? 

;1f 5° OF 

sIINDER APT? 

;1F wOTs B&R 

;MOVE TO MAILBOX ERROR NO, 
sSET MALLBOX FOR FATAL ERROR 
;LeC ERROR 


sACT AUTO ACCEPT? 
s1F SOt oF 
;TY¥PE END OF TEST 


;8UMP PASS COUNT 
gCHECK Apt 
sKEEP GOING 


sACT HOOKS 


300 AGAIN 


;GET CHAR, 

sLOCATION EPFECTEO By SWITCHES 
s1F NOTs @R 

sFIX COUNTERS 


sFIX POINTER 
;CONTINUE 
360 GET pARITY 
;XOR CHAP 


pROTATE y POS, RIGHT 
sIF NO CARRYS BR 
3ST BIT NINE 


sSAVE CHAR 


s1F LAST CAR,; 6R 
;GET NEXT ChAP, 


3 


St0 4d15 





MAIN, 
DZMQAD Pig 


767 982214 
768 #82222 
769 902226 
770 «82232 
771 «4682240 
772 «4902242 
773 #82246 
774 #82252 
77S #02256 
770 962264 
77% @82204 
778 482266 
779 «982274 
785 ©02272 
781 682274 
782 002276 
783 662302 
764 982312 
785 962312 
7866 «682316 
797 

788 902329 
789 #82322 
792 942326 
791 4 «982332 
792 wd2336 
793 62342 
794 

79$ 902344 
796 982352 
797 #82354 
798 982360 
799 992362 
82d 992306 
841 982379 
642 982372 
943 #824¢8e 
#64 

64S 942402 
6460 962404 
07 982406 
868 @82412 
99 682416 
818 902420 
811 682422 
612 002426 
013 ©82432 
014 6824306 
815 002449 
®16 982442 
C17 682446 
616 #42450 
619 ©82452 
820 

621 #82454 
822 #0824506 


MACYI4 2701296) 


24eMAYo77 


24eMAYo77? 15922 


942767 
6427964 
056467 
#16767 
#022907 
9@S¢67 
012763 
#32704 
691492 
605267 
9902461 
686004 
065303 
e¢1367 
112194 
0427904 
#32767 
991032 
u$2704 
@09207 


619446 
#46716 
943467 
e32067 
9107064 
000207 


@t6767 
ei2ias 
o227a1 
691402 
ee4dre7 
09S 3e8 
991370 
vw16767 
060207 


1944a1 
086085 
016708 
vto7ei 
906201 
901462 
604767 
#16700 
e167e1 
906261 
6014982 
94767 
904401 
BeS4o0 
geovar 


104491 
o0s777 


177952 
1797727 
176562 
176556 
176560 
abeelu 
060001 


176542 


1774006 
aoe 


000400 


176466 
176462 
176456 
176452 
176454 
173026 


177732 


176416 


176372 


176370 


0800626 
176356 
176354 


170572 


176562 


176516 


176442 


176424 


15324 


PAGE 16 


INITIALIZE THE COMWON TAGS 


PARITY3 
CLPQ: 


CLPIis 


CLP23 


XORs 


LPC: 
LPCi 3 


LeC2s; 


TyPPoMs 


TYPRis 


ENDOTs 


TYPs 


BIC 
BIC 
b1s 
Nov 
RTS 
CLR 
MOV 
BIT 
BEG 
INC 
CLC 
POF 
DFC 
BNE 
MOVB 
BIC 
BIT 
BNE 
BIS 
RTS 


MOV 
Bre 
BIC 
BIS 
MOV 
RTS 


MOV 
MOV 
CMe 
BEQ 
JSR 
DEC 
BNE 
MOV 
PTS 


TYPE 
TYPHDF 
MOV 
“OV 
ASK 
bEQ 
JSR 
hOV 
YoV 
ASR 
bFQ 
JSe 
TYPE 
E0TST 
HALT 


TYPE 
CARLF 


81774S05KOKS 


O177797,K4 
R4,xX0RS 
xORS,ACTCRE 


PAPCNT 


k4 

R3 

CLee 
(Rie, R4 
$177400,kK4 
81,PARCNT 
CLR2 
6404,24 

ec 


R4,°(6P) 
XOPS, (SP) 
R4,X0RS 
(SP)¢,XORS 
XORS, RE 

pe 


ACTLPC,XOPS 
CR1)¢,R4 
6173026-R1 


LPC1 
XORS,aCTLPC 
pc 


ROMSA1,Ro 
DATLN4,Ri 


Pc, Tye 
ROMSA2,RO 
DATLN2,RY 


Sto weie 


sCOMPLEMENT ALL GUT BITS 3 & § 


CLEAR BIT CouNTER 
;SET NO, OF OrTs 
pStE Lf ONE eIT 
s1f NOT: ek 

:0U"P COUNTER 


sROTAITG TU NExT BIT 
sCONTINUE FOR ALL 6ITS 


#SEE IF ODD « OF ONE B1TS 


316 S08 BK 
;SET PARITY BIT 
pEalT 


sXOR SUBROUTINES R4 wIIH KOKS 


sLOCATION EFFECTED BY SwITCHES 
sIF SO; SKIP LOC, BY BRANCHING 


sTYPE HEADER 


gPOINT OT 1ST ROM SPACE 
sPUT LENGTH IN Ry 

sCONTERT TO WORDS 

s6RANCH IF IST ROM SPACE NOT USED 
3GO TYPE 1ST ADDR, SPACE 

gPOINT TO 2ND ADDR, SPACE 

pPUT LENGIN IN Ry 

sCONVERT 10 WORDS 

38h IF 2nD ADDR, SPACE NOT USED 
7G0 TYPE 2ND ADDR, SPACE 


P 
P 


eMAIN, MACYI1 2701006) 24eMAYe77 15124 PAGE 17 
DZM9AD Pit 24eMAYo77 15322 INITIALIZE TRE CO“MON TAGS SEG ¢e17 

823 682404 982493 br TYP3 

824 982462 432790 800003 TY?Pes bIT 63,Re pAUURESS MULTIPLE OF 47 

625 ©€02466 p8i¢ao BNE TYP2 ;If NOT: Bf 

820 882479 1046401 TYP 33 TYPE 

827 682472 905777 CARLF 

628 0682474 g1ee4e MOV FO,e(SP) pPUT ADDRESS ON STACK 

829 w8247e 184492 TYFRCC ;TYPE ADDR, 

839 #02504 1804491 TYPE 

831 #682592 986042 COLON 

32 82504 812446 TYP 23 MOV (Rvde,e( SP) sPUT DATA OWN SI1ACK 

833 802500 104492 Tyeoc sTYP OATA 

634 82519 184601 TYPE sTYPE 2 SPACES 

835 82512 86002 SP2 

830 92514 g9S301 DEC Fi sFINISHED? 

637 62516 961361 BNE TYPe ;1F sOTs) BR 

636 ©€82520 909207 KTS pc pRETURN 

@39 @82522 g85e@9 AUTACTs CLR ka 

840 #82524 ¢62790 90002 AUT: ADO 62,Re s5UMP TALBE INDEX 

841 082530 6260427 g@5212 177777 CMP TMSG( RY), tol sCHECKED ALL KNOWN VERSIONS? 

842 02530 981425 BEG AUTERR 31F SOg 6&R 

643 082544 9260767 9604644 176254 CMP TXCRCORA),ACTCRC sDOES THIS CkC AGREE? 

844 982546 901366 BNE AUT] sIF NOTs KEEP LOOKING 

845 95255e@ 923727 #90042 e92%60 c™“P @642,e6FNDAD sUNDER ACT AUTO ACCEPT? 

846 82556 921495 BEQ AUT} IF SO; OR 

847 202564 916067 685212 990002 vovV TMSG(P0),AUT2 sSET UP VERSION MESSAGE 

648 982506 194491 TYPE 

649 9825749 g80000 AUT2: (4) 

859 92572 wi6d67 904644 176216 AUT3: MOV TACRC (RA), EXCRC 3SET EXPECTED CRC 

851 082682 elet—e7 O84712 176212 "OV IXLPC CRO), EXLPC sSET EXPECTED Lec 

852 82606 989167 177124 uve CK4 sCHECK LPC 

653 

054 @02612 194401 AUTERR? TYPE 

655 902614 686946 AUTER* 

956 682616 912767 986001 176224 MOV #1,SFAaTAL s“OVE TO MAILBOX ERROR NO, eee 14 e500 

857 972624 ©12767 eeece1 176214 MOV 81,8MSGTYP ;SET MAIL6OX FOR FATAL ERROP 

853 982032 geeeea HALT gAUTO ACCEPT FAILED 

659 

9039 eSBTTL TTY INPUT ROUTINE 

Pel 

662 , PFSSSSSHSSSHSSSHSS SSS SSHSSHSEHSHSSHSSSOSSHEHSESESSCOSSESCH SES ESESOHEOE 

803 @82634 177560 STKSs 20RD 177560 ssTTY KBD STATUS 

864 ©82636 177502 STFB, WORD 177562 ssTTY K6O BUFFER 

465 eENABL LSB 

666 

867 eLSABL LS®@ 

804 

#09 

870 PPSSSSSSSHSSHSHHSSSSHSHSSHSSSSHHSLOSHEHSCSCHOSESOHOSCECH RH ESHSECESOOS 

e71 s*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 

672 seCALLs 

673 7* ROCHR seINPUT A SINGLE CHARACTEFP FROM THE TTY 

e746 3* RETURN HERE gGHARACTER IS ON THE STACK 

875 78 gsWITH PARITY BIT SIRIPPED OFF 

876 3 

a77 


878 ©026040 11646 SRDCHRS MOV (SP),(SP) 


s3PUSH DOWN THE PC 


pz 


MAIN, 
DZM9AD,P14 


679 
888 
9e1 
862 
863 
Hag 
gas 
Br6 
8e7 
888 
Had 
H9a 
891 
892 
893 
ade 
e295 
896 
897 
#98 
wae 
gda 


242642 
#82659 
042654 
062056 
#02664 
082672 
0627¢8 
@02702 
@827%0 
@02716 
@02714 
98272v 
002724 
£02726 
682739 
€02736 
#027490 
082746 
092750 
902756 


002760 
062762 
62764 
082779 
w82774 
#62776 
69300" 
603002 
903006 
e03v10 
003012 
@o3014 
003922 
663020 
#03032 
003034 
003040 
603042 
003046 
903052 
003054 
¥e30S6 
od3000 
003066 
@03072 
003074 
033109 
#003102 
003196 


MACYI1 27(1206) 


24eMAYo7? 15822 


216666 
165777 
189375 
117766 
642766 
826027 
@01013 
195777 
100375 
117746 
042716 
#220627 
#01366 
860750 
976627 
e62407 
€26627 
903003 
942766 
#00062 


o1e346 
@95¥46 
012793 
6227903 
101456 
104495 
912613 
122713 
801022 
005716 
201067 
942767 
104461 
012716 
05393 
620327 
183434 
111367 
104461 
900746 
@05716 
9044960 
112767 
104491 
6O5e16 
922713 
0616903 
164401 
600726 


24eMAYo77 153824 PAGE 18 
TTY INPUT ROUTINE SEQ vvle 
O088O4 90992 KOV 4(SF)e2(5F) gPSAVE THE PS 
177760 18s TST8 @SThs greek FOR 
BPL is 327A CHAPACTER 
177784 eeoea4 “Ova OSTFR,4(SP) g?KEAD TRE TTY 
177603 980404 BIC O°C<177>,4(5P) 53GET RID OF JUNK IPF ANY 
09004 ¢30023 c™P 4(8P),¢23 g318S IT A CONTROLeS? 
BNE 38 g7BRANCH IF NO 
177726 26% TSTB esTK*s g2WAIT FOR A CHARACTER 
BPL 2s s7L00P UNTIL ITS THERE 
177722 wove @sTKb, (SP) 33GET CHARACTER 
177600 CD is #°C177,¢SP) geMAKE IT 7eBIT ASCII 
000621 C™P (SP)¢,#21 3818S IT A CONTROL@Q? 
RNE 28 g92F NOT DISCARD IT 
BF is sYES, KESUME 
@O00FO4 ea014 388 CMP a(SP),8142 3318S IT UPPER CAge? 
BLT ae ss6RANCH IF YES 
009004 070175 CMP 4(S5P),8175 3231S IT A SPECIAL CHAR? 
bGT 4s ;eBRANCH IF YES 
900042 arargs BIC 64¢,4(80?) seMAKE IT UPPER CASE 
463 kTI 39GO BaCKk TO USEP 
, FESSSHOHSHSSSOFSSSCSS HSS SSSSS HSS HOSSSSSHSHE SOSH HOGOHSHSHHHSHHEETSSES 
g®THIS ROUTINE ®ILL I*PUT A STRING FROM THE TTY 
seCALLs 
3° POLIN seINPUT A STRING FROM THE TTY 
3° RETURN HERE ;pADDRESS OF FIRST CHARACTER «ILL BE ON THE STACK 
®@ geTERMINATOR WILL BE A SyTe OF ALL 6°S 
SPDLINS MOV k3,e(SP) s3SAVE PR 
CLE e(sP?) giCLeAk THE RUBOUT Key 
@03214 iss “OV eSTTIETN,R3 33GET ADDRESS 
@03224 283 C¥P OSTTYINGG,,R3 s:BUFFEP FULL? 
6LOS 4s 3288 IF YES 
RDCHR 229GO READ ONE CHARACTER FRO” THE TIY 
MOVE (SP), (3) ,sGET ChapaCTER 
@0¢177 1963 CMPB €177,(P3) 3318 IT A RUBOUT 
BNE $8 338F IF wO 
TST (SP) 3228S THIS THE FIRST RUBOUT? 
BNE es 328 LF NO 
@90134 oea¢17e MOVE e°\,9¢ 39TYPE A BACK SLASH 
@@3212 TYPE Pay } 
177777 MoV se3,(SP) 33SET THE RUBOUT KEY 
683 DEC R3 se9BACKUP BY ONE 
603214 cP R3,eS8TTYIN s3STACK EMPTI? 
BLO 45 398 If YES 
000144 MOVB (R3),98 gsSETUP TO TYPEOUL THE DELETEO CHAR, 
©03212 TYPE 298 32G0 TYPE 
BR 28 39GO READ ANOTHER CHAR, 
563 Tst (SP) gsRUBOUT KEY SET? 
BEG 78 396R IF NO 
@00134 000124 “OVE e°\,98 s3TYPE A BACK SLASH 
03212 TYPE 48 
CLR (SP) g?CLEAR THE RUBOUT KEY 
200025 783 C™PB #25,(%3) 3915 CHARACTER A CTRL U? 
BNE RG 376R IF NO 
003230 TYPE eSCNTLU s3TYPE A CONTROL "y" 
BR is 39G0 START OVER -a 


MAIN, 


935 
936 
937 
938 
939 
9ee 
941 
942 
943 
944 
945 
946 
947 
94k 
969 
950 
951 
982 
953 
9384 
955 
956 
957 
958 
959 
9ov 
961 
902 
963 
904 
965 
906 
967 
eee 
909 
970 
971 
972 
973 
974 
975 
876 
977 
978 
979 
9808 
9e1 
9862 
9e3 
9e4 
CFS 
966 
967 
968 
9869 
990 


MACY11 27(4706) 
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9631190 
@o03114 
003116 
ee3i2e 
083124 
©93130 
#03132 
@03136 
ed3i4de 
Oo314e 
003159 
003154 
003156 
@03162 
093160 
#03170 
903172 
003174 
003202 
P43210 
683212 
063213 
#83214 
603224 
063225 
903226 
063230 
283235 
0¢3242 
00325¢ 
@93253 
ee320¢ 


003264 
003266 
903274 
903270 
803300 
0033¢2 
603304 
003306 
003312 
603314 


Z4eMAYo?7 


24eMAYo77 95222 


922713 
eeiveil 
165013 
144491 
164491 
#00717 
1864401 
eee7i2 
911307 
184491 
122723 
e¢c1305 
105663 
18046461 
005726 
012603 
€1716466 
Pleeee 
012760 
eeeve2 

ebo 

6ee 
eeovrie 

77 

e015 
#0e0F12 
052530 

136 
eeseis 
6200e75 

e4e 
ajo4ea 


011646 
616066 
B1erde 
10146 
618246 
104460 
912600 
010667 
#35001 
0650@2 


003225 
©3214 


000046 
003212 
evevls 


177777 
003226 


000004 
093214 


#25015 
000507 
@53523 

060 
e4704e 
eGevde 


080004 


060602 
09044 


eee 
000012 
@20122 


080002 


15824 PAGE 19 


TTY INPUT POUTINi SEQ “019 
863 C¥Pa @22¢(¢R3) 3318S CHAPACTER A "**H"? 
BNE 36 ;26PANCH IF NO 
CLEB (P3) s3CLEAR THE CHARACTER 
TYPE oSCRLF s3TYPE A "CR" @& *LE* 
TYPE oSTTYIN saTYPE THE INPUT STRING 
BR 26 33G90 PICKUP ANOTHER CHACTER 
483 TYPE eSQUEs sp 1¥PE A °?° 
&R is s3CLEAR THE BUFFER AND LOOP 
383 MOVA (R398 32ECHO THE CHARACTER 
TYPE 296 
CPB #15eCP3)¢ s3CHECK FOR RETURN 
BNE 28 33LOOP IF NOT RETURN 
CURS o1(P3) gsCLEAR RETURN (THE 15) 
TYPE oSlF seTYPE A LINE FEED 
TST (SP)¢ gsCLEAN PUBOUT KEL FROM THE STACK 
MoV (SP)o,R3 seRESTOPE #3 
MOV (SP), e( SP) ssA0JUST THE STACK AND PUT ADDRESS OF THE 
“OV 4(5P).2(5°) 33 FIKST ASCII CHARACTER OW IT 
MOV OSTTYTN,4( SP) 
att se RETURN 
96% ePYTE @ geSTOPAGE FOR ASCII CHAR, TO TYPE 
eSYTE 3s TERMINATOR 
STTYINg ,B8LK6 6. ssRESERVE § S6YTES FUR TTY INPUT 
SQUES, ,ASCII *?# ssQUESTION MARK 


GCRLF, ,ASCII <15> sCAPRIAGE RETURN 

LF; eASCIZ «12> s9LINE FEED 

SCNTLI'g ,ASCIZ /°U/44$><12> gsCONTROL *#U" 
GCNTLGs ,ASCIZ /°G/e45><12> gsCONTROL #G* 
OMSeR, ,ASCIZ <15>412>/SKF @ / 


GYNEws ,ASCIZ /¢ NEW 8 / 
eSBTTL READ AN OCTAL NUMBER FROM THE TTY 


3 PFESSSHSSSSSSSSSSSSHSHSSSESSESSSHHEHSHSHSSHSSSSHSSSSSHSCHESCS HSSHSEOOEOCE 
s@THIS POUTINE WILL RFAD An OCTAL (ASC11) NUMBER FROM THE TTY AND 
ps@CHANGF IT TO BINARY, 

p@THE INPUT CHARACTERS ®ILL BE CHECKED TO INSURED THEY ARE LEGAL 
seOCTaAL DIGITS, IF AN ILLEGAL CHARACTER IS READ A *?" wILL BE TYPED 
peFOLLOWED BY A CARRIAGE PETURNeLINE FEED, THE COMPLETE NUMBER MUST 
seTHEN BE RETYPED, THE INPUT IS TERMINATED By TYPING A CARRIAGE RETURN, 


seCALLs 
Be RPOCT 7p READ AN OCTAL NUMBER 
3* KETURN HERE 33LOw ORDER BITS ARE ON TOP OF THE STACK 
3° gsMIGH ORDER BITS ARE IN $HIOCT 
SRDOCTS MOV (SP),0(SP) s9PROVIDE SPACE FOR THE 
MOV 4(5P),2(SP) ss INPUT NUMBER 
MOV PO,°(SP) ;ePUSH Re ON STACK 
MOV Fi,e(SP) ;#PUSH Ry ON STACK 
MOV R2,°(SP) ;7PUSH RQ ON STACK 
18s ROLIN ;?READ AN ASCIZ LINE 
MOV (SP)¢,RO 33GET ADOPESS OF 1ST CHARACTER 
MOV hO,58 g3AND SAVE IT 
CLE Pi z9CLEAR DATA «ORD 
CLR k2 Fa 


oMAIN, MACYS) 
DZMOAD, P44 


991 983316 
992 96332e 
993 983322 
994 #03326 
995 6283330 
996 903334 
997 0683336 
998 983340 
999 03342 
1080 903344 
10@1 003346 
1@¢2 903350 
1¢v3 @03352 
1¢e4 903356 
1°45 #883360 
1696 983362 
1¢e7 ©83364 
10v8 9683370 
1009 #03374 
1019 ©03376 
1011 903490 
1012 9034¢2 
1613 903404 
1014 903466 
1035 e8344¢ 
1e¢16 983452 
1017 903414 
1738 #834206 
1019 983422 
102@ 
1021 
1022 
1023 
1624 
1925 
1¢206 
1027 
1028 
1¢29 
1032 
1031 
1032 
1¢33 
1034 
1035 
1036 
1037 #03424 
1936 €8343v 
1639 683432 
1948 9463434 
1v41 003436 
1042 #90344¢ 
1643 903444 
1044 #83452 
1¢45 683454 
1046 683462 


a) 


27€1 000) 
24e"AYO77 


112646 
€01429 
122716 
33026 
122716 
622423 
e663e1 
#06162 
ere3el 
ee6ie2 
406301 
296102 
942716 
o62¢ei 
080786 
903726 
18160 
019267 
012002 
@12601 
@12ee88 
eb90e2 
#05726 
108014 
104491 
60eee8 
904401 
900730 
000700 


10$767 
160462 
660000 
0004308 
010046 
9176020 
122767 
oe1011 
132767 
@01405 


24eMAYo77 15324 PAGE 2° 
15322 PEAD AN OCTAL NUMREP FROM THE ITY SEG #220 
283 “OVA (R@)@,ef SP) ssPICKUP THIS CHARACTER 
bE 3¢ ge1F ZERO GET OUT 
eeerbe C™PA #°e, (SP) goMAKE SURE THIS CHARACTER 
GT 4s g31S AN OCTAL DIGIT 
900067 CPB 6°7, (SP) 
BLT 46 
ASL ky 3302 
POL R2 
ASL Kt 3304 
FOL R2 
ASL Pi 3308 
FOL 2 
1777796 BIC e°C7?,¢SP) s2STKIP THE ASCIZ JUN® 
ADD (SP)¢,F1 33AD0 IN THI6 DIGIT 
ne 26 33L00P 
383 TsT (SP) g3CLEAw TEP*ANATOR FROM STACK 
000012 MOV Fi,gi2¢S”) g2SAVE THE RESULT 
€8¢226 HOV Kk2,$HTO0CT 
MOV (SP)o,#2 33POP STACK INTO FQ 
MOV (SP)¢,F1 33PORP STACK INTO Ry 
MOV (SP)o,RO g7POP STACK INTO He 
kTl PPRETIRN 
463 TST (SP) s9CLEAN PARTIAL FROM STACK 
CLRB (Re) 39StT A TERMINATOR 
TYPF ge TYPE Up THRU THE GAD CHAR, 
563 WORD 4 
@03224 TYPE esQues 33°?" *"CR® & “LF® 
BR 18 s3TRY AGAIN 
eHIOCTs ,wORD s9MIGH ORDER BITE GU HERE 
eSBTTL TYPE FOUTINE 
? FOSSSSSSHSHSSHSSHSSHSSHSSESSHSHSHSSSHSSHSHSSHHHSHSHSHSCHSHS SHSEHHSESOSS 
g@RKOUTINE TO TYPE ASCTZ MESSAGE, “ESSAGE “UST TERMINATE wITH A # BYTE, 
g*®THE ROUTINE WILL INSERT A NU“BERP OF NULL CHARACTERS AFTER A LINE FEED, 
s*NOTELS SNULL CONTAINS THE CHARACTER TO BE USFD AS THE FILLER CHARACTER, 
s@NOTED?s GFILLS CONTAINS THE NUMBER OF FILLEW CHARACTERS REQUIRED, 
s@NOTE3S2 SFILLE CONTAINS THE CHARACTER TO FILL AFTER, 
3* 
s*CALLs 
#1) USING A TRAP INSTRUCTION 
3° TYPE » MESADE geMESADP Is FIRST ADDRESS OF AN ASCIZ STRING 
;#OR 
3° TYPE 
Tr) MESADF 
3¢ 
000265 STyPE; TSTA® STPFLG 3318 THERE A TERMINAL? 
BPL 18 328k IF YFS 
HALT ssHALT HERE IF NO TERMINAL 
KR 36 se LEAVE 
163 MOV ke, °( SP) g2SAVE Ro 
009002 “OV @2(SP),Pe 33GET ADDRESS OF ASCI2Z STRING 
000004 175414 C™PB @APTENV,GENV geRUNNING IN APT MODE 
BNE 628 32N0,GO CHECK FOR APT CONSOLE 
@0@10e@ 175425 61T8 SAPTSPOOL,gENV™ 335P00L MESSAGE TO APT 
BEY 026 3#N0,GO CHECK FOR CONSOLE + 


eMAIRN, 


MACYS) 27(1006) 
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1¢47 
1068 
10469 
10S8@8 
10$1 
10$2 
1653 
1054 
1495 
1956 
1037 
10$@ 
1089 
1¢60d 
1061 
1462 
1063 
1664 
1065 
1°66 
1007 
1e08 
1669 
1472 
1071 
1072 
1073 
1074 
1¢75 
1076 
1077 
1078 
1079 
108e 
179014 
1062 
1¢83 
10494 
1¢¢65 
1¢66 
1087 
1¢68 
1069 
1090 
1°91 
1¢92 
1093 
1¢94 
1695 
1096 
1097 
1098 
1099 
1100 
1101 
1102 


733464 
003476 
e03474 
603476 
0035046 
@03506 
o¢3510 
#03512 
903514 
#03516 
003522 
903526 
603530 
0803532 
083536 
903540 
693542 
e03544 
#93546 
283552 
003554 
633566 
703564 
503566 


983572 
903576 
$83600 
803604 
003610 


©03612 
#93616 
903622 
903036 
003632 
003634 
043036 
003642 
6036464 
603652 
#83660 
003662 
083600 
#83676 
003676 
603760 
003702 
003704 


693706 
ee37ie 
003712 
o03713 


24eMAYO?7 


24eMAYo77? 15922 


e106? 
944767 
neerae 
132767 
e8ieu3s 
112040 
901085 
905726 
#12ee@9 
#62716 
o0e¢e2 
122716 
01436 
122716 
eYleHo 
85726 
104401 
@¢3225 
195067 
660755 
004767 
126726 
901359 
€16746 


105366 
002770 
004767 
1@5367 
6007708 


992716 
@94767 
132767 
001372 
005720 
02724 
105777 
100375 
116677 
122766 
601603 
105067 
000466 
122766 
001402 
105227 
Ov OOO 
000207 


177504 
177566 
600 
602 


000004 
000234 


esen4e 


080%082 
ederli 
006200 


026056 
wovlldy 


000032 
090072 


0000 40 
eeoel4s 
eeeee7 


900044 


e0eei4 
@0e012 


175363 


PAGE 21 
TYPE ROUTING 


voV 
JSP 
6163 
6263 6TTe 
BNE 
MOVE 
BNE 
TST 
MOV 
ADD 
RTI 
C“PB 
KEQ 
CMPB 
BNE 
TST 
TYPE 


6063 
363 


6CPLF 


CLaB 
br 
JSR 
CPR 
BNE 
MOV 


DECB 
BLT 
J5&k 
DECB 
bP 


783 


sHORIZONTAL TAB 


vOVB 
JSP 
BITS 
BNE 
TST 


STYPECs 


iss 
Ince 


SCHARCNT; , WORD 


STYPEX: FTS 


6TPS3 
6TPR: 
SNULL? 


ev ORD 


@ WORD 
»WORD 
»BYTE 
SFILLss ,#YTE 


ku, 618 
PC, SATY3 
¥ 


eAPTCSUP,SENVM 


ous 
(Pe)e,e(SP) 
@s 

(SP) 
(S)o,RO 
#2,(S8P) 


eHT, (SP) 
BS 
oCRLF,(8P) 
$s 

(SP)¢ 


SCHARCNT 

26 

PC, sTYPEC 
SFILLC,(SP)¢ 


28 
SNULL, ©(5P) 
1 (SP) 


os 
PC, STYPEC 
SCHARCNT 
76 


PROCESSOR 


s° ,(SP) 
PC, STYPEC 
#7,8CHARCNT 


sTYPEc 
2(5°),@sTPB 
CR, 2(5P) 


16 
SCHARCNHT 
STYPEX 
eLF,2¢5") 
sTypex 
(PC )¢ 

¢ 

pc 


177504 
177566 
o 
a 


SEG @v2i 


seSETUP MESSAGE AUDFESS FOR APT 
33SPOOL MESSAGE TU APT 

g:MESSAGE ALORESS 

;eAPT CONSOLE SUPPRESSED 

ssX¥ES,SKIP TYPE OUT 

g3PUSH CHARACTER 10 BF TYPED ONTO STACK 
338F IF IT ISN°T THE TERMINATOR 

g91F TERMINATOR POP IT OFF THE STACK 
gsRESTORE KO 

;sADJUST RETURN pC 

se RETURN 

g?BRANCH IF <HT> 


g3BRANCH IP NOT <CRKLF> 


37P0P <CRD><LF> EQUIV 
s9TYPE A CR AND LF 


g9CLEAR CHARACTER COUNT 

39GET NEXT CHARACTER 

33G0 TYPE THIS CHARACTER 

3318 IT TIME FOR FILLER CHAPS,? 
331F NO GO GET NEAT CHAR, 

39GET @ OF FILLER CHARS, NEEDED 
z3AND THE NULL CHAR, 

37D0ES A NULL NEEL TO BE TYPED? 
736R If NOeeGO POP THE NULL OFF OF STACK 
33GO TYPE A NULL 

3200 NOT COUNT Ag A COUNT 

33 LOOP 


ssREPLACE TAB WITH SPACE 
s3TYPE A SPACE 

;9BRANCH IF NOT aT 

33TA® STOP 

33POP SPACE OFF STACK 

39GET NEXT CHARACTER 

ge@AIT UNTIL PRINTER TS READY 


3#LOAD CHAR TO BE TYPED INTO DATA REG, 
3231S CHARACTER A CAKRIAGE RETURN? 
336RANCH IF NO 

gs YESeeCLEAP CHARACTER COUNT 

gs EAIT 

3231S CHARACTER A LINE FEED? 

;9BRANCH IF YES 

gsCOUNT THE CHARACTER 

gsCHARACTER COUNT STORAGE 


ssTTY PRINTER STATUS REG, ADDRESS 

seTTY PRINTER BUFFER REG, ADDRESS 
ssCONTAINS NULL CHARACTER FOR FILLS 
gsCONTAINS @ OF FILLER CHARACTERS REQUIRED 


\, ed 


1103 
1104 
11¢5 
1146 
1107 
1108 
1169 
111 
faat 
i912 
1943 
i116 
aaas 
1916 
141? 
1118 
1119 
1122 
4121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
4137 
1138 
1139 
114¢ 
1161 
1142 
1163 
1144 
1145 
1140 
4447 
1168 
1149 
1152 
1151 
4152 
1153 
1154 
1155 
1156 
4157 
1198 
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#93714 
903715 


003716 
203724 
603732 
903734 
903742 
903742 
603744 
063746 
003752 
603784 
973762 
003764 
083772 
@03774 
904000 
o04006 
#04212 
004014 
994020 
604022 
004024 
6040830 
904032 
794036 
0040404 
Pe Van 1) 
904054 
004062 
004366 
084072 
604074 
904074 
©804109 
094102 
9041do0 
woelle 
ov4iié4 
wo4aii6é 
004124 
904132 
904136 
weei4d2 
004146 
0@4152 
004154 
704156 
ved4lion 
004161 
004162 


27(1¢90) 
24eMAYo7? 


112767 
112767 
900403 
192767 


210246 
910146 
909767 
0214590 
122767 
ee1e3i 
132767 
901425 
17000 
062766 
geS767 
o01375 
810067 
185720 
991376 
166790 
ede290 
610067 
912767 
900413 
017667 
662766 
@16746 
904767 
900000 


103767 
901416 
085767 
#01413 
ge5767 
@01375 
@17067 
962766 
005267. 
105007 
105067 
1052067 
e12¢e1 
012000 
e#e207 
wed 
ry") 
ee 
8041646 
960202 


2QeMAY"77 15824 PAGE 27 
15322 TYPE POUTINE SEG 6622 
SFILLC! ,BYTE 12 seLNSEPT FILL CHAPS. APTER B “LINE FEED" 
STPFLGs ,BYTE @ pe" TERMINAL AVAILABLE® FLAG (41 T<¢7>e¢8YES) 
eSBTTL APT COMMUNICATIONS ROUTINE 
, PESSSOSSHHSSSHSSCHSHSESHSSEHSSESHHHSHSSHHSSOHHSHTHHSHESFHESHSHESSHSCHSTEES 
@80001 090236 GATY13 KvOVB #1,SFFLY 39TO REPORT FATAL ERROR 
@00001 200226 SATY3; MOVE #1,8*FLC 3310 TYPE A MESSAGE 
rr gATYC 
@0g0@1 ee¢2727 SATY4: ‘MOVE #1,8FFLG 39TO ONLY REPORT FATAL ERROR 
SATYC? 
MOV RO, °(SP) s;9PUSH Pe ON STACK 
MOV Ri,e(SP) ;3PUSH Ry ON STACK 
@€0206 TSTB SMFLG gsSHOULD TYPE A MESSAGE? 
BEG 58 sa1F NOTs BR 
900001 175104 c™MPP SAPTENV,GENV gs OPERATING UNDER APT? 
BNE 38 s31F NOTs BR 
@00100 175075 BITE @APTSPOOL,GENVM ¢3SHOULD SPOOL MESSAGES? 
BEG jf s71F NOT; BR 
@00004 MOV 04(SP),Re 39GET MESSAGE ADDF, 
880082 090004 ADD 2,4(SP) 398U"P RETURN ADOR, 
178034 183 TST S’SGTYPE 39SEE IF DONE #/ LAST XAMISSION? 
BNE is seIF NOTs AIT 
175042 MOV RO, 6MSGAD :3PUT ADOR IN MATLBOX 
283 TSTB (Re)¢ 39FIND END OF MESSAGE 
BNE 28 
175032 SU6 6MSGAD, ®v 338U6 START OF MESSAGE 
ASR Fe :9GET MESSAGE LNGIH IN WORDS 
178026 MOV RO, SMSGLGT z9PUT LENGTH IN MAILBOX 
@80004 175002 MOV 04, 6MSGTYPE s9TELL APT TO TAKE 8G, 
bie 56 
@09004 090716 368 MOV 04(SP),48 ;9PUT MSG ADOR IN JSR LINKAGE 
809002 e790e4 AOD 62,4(sP) ;96UMP RETURN ADDRESS 
173710 OV 177776, °(8P) 33PUSH 177776 ON STACK 
177332 JSP PC, STYPE gaCALL TYPE MACRO 
483 WORD ¢ 
583 
020062 108% TSsTe SFFLG s#SHOULD REPORT FATAL ERROR? 
BEO 126 s31F NOTs BR 
17476¢ TST sENV seRUNNING UNDER API? 
REG 128 gsIF NOTs 6k 
174732 1168 1ST S’SGTYPF sePINISHED LAST MESSAGE? 
BNE 118 ge1F NOTg WAIT 
@00004 174724 MOV C4(SP),SFATAL 9 ,GET ERROR 6 
669002 80004 ADD #2,4(8P) 398UMP RETURN ADDR, 
174710 rwC eMsGTYPE s9TELL APT TO TAKE ERROR 
000920 1263 CLRB SFFLG ;9CLEAR FATAL FLAG 
eveel3 CLRS SLFLG g9CLEAR LOG FLAG 
everds CLRB SMFLG geCLEAR MESSAGE FLAG 
mOV (SP)¢,P1 39POP STACK INTO Ry 
MOV (SP)o,Ra 39POP STACK INTO R@ 
RTS pc 3p RETURN 
GMFLG; ,6YTE @ ;9MESSG, FLAG 
SLFLG; ,8YTE ¢ 39L0G FLAG 
SFFLG; ,8xTE @ geFATAL FLAG 
of VEN 
APTSIZE#200 Zz 2 
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1159 
1108 
1161 
1102 
11603 
1164 
1165 
1166 
1167 
1168 
1109 
11798 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1160 
1181 
1162 
1183 
116¢ 
1185 
1186 
1167 
1168 
1169 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
12¢1 
1202 
1263 
1204 
1205 
1246 
1207 
1208 
1209 
121¢ 
1211 
1212 
1213 
1214 


034164 
04176 
704176 
004202 
304200 
0642108 
004216 
064224 
004232 
004234 
094236 
064249 
604244 
904246 
004252 
984250 
664262 
004266 
004270 
004272 
004274 
004276 
704300 
004302 
404304 
04306 
#04312 
©4314 


24eMAYo?? 
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obe001 
£00100 
660840 


617646 
116667 
112667 
962716 
ove4ae 
112767 
112767 
112767 
010340 
019446 
010546 
1167904 
€05494 
962704 
11940607 
116764 
016005 
905693 
906165 
660434 
©66185 
#061905 
9661905 
010533 
200143 
109367 
100016 
942763 


009000 
000001 
000207 
020062 


ee0e14s 
PCO2P86 
000132 


ove125 
000012 


000976 
177770 


690171 
©4¢165 
00@154 


15324 PAGE 23 


APT COMMUNICATICNS ROUTING SEQ 4023 
APTENVeee! 
APTSPOOLSI¢¢@ 
APICSUPa¢4e 
eSBTTL BINAKY TO OCTAL (age. AND TYPE 
FFCSSSSSOSSTOH HHS SESEESEOESEOD + SOC HESSEO OT HOOSOSELETESEEESEESOEOO 
s*THIS POUTINE IE USED TO CHANGE A 16e68IT BINARY SUMBFR TO A 6eD5GIT 
p*OCTAL (ASCII) NUMBER AND TYPE IT, 
SOSTYPOSeecENTEF HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS 10 TYPE 
peCALLe 
pe MOV NUM, e( SP) ge8UMBER TO BE TyPEU 
7° TYPOS gCALL FoR TyPEOyUl 
3* oP YTE N geNei TO 6 FOR NUMBER OF DIGITS TU TYPE 
7* eSYTE ¥ g9"81) OF @ 
s* sPISTYPE LEADING ZEROS 
* sPOSSUPPRESS LeADING ZEROS 
3° 
S*STYPONeoerENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
s*6TYPOS OK STYPOC 
seCALLe 
:* mOV NUM, e( SP) seUMBEP TO SE TYPED 
3 TYPON seCALL FOR TYPEOUT 
s¢ 
S@STYPOCeecENTEF HERE FOR TYPEOUT OF A 16 BIT NUMBER 
seCALLe 
Ty voV HUM, ©(S") seNUMBER TO BE TYPEO 
3° TYPOC g9CALL FOR TyPEOUT 
STYPOSs MOV @(SP),e(SP) s9PICKUP THE “ODE 
wove 1(6°),6¢FILL seLOAD Zero FILL SelTch 
MOVE (SP)¢,8OMODES1 ggNUMBER OF DIGITS TO TYPE 
ADD #2,(5°?) seADJUST RETURN ADDRESS 
Bk sTyPow 
STYPOCs MOVE 61,8eF ILL g9SET THE ZERO FILL SwlTCH 
MOVE $6, 60“ODEO, geStT FOR SIX(6) LVIGITS 
STYPONs MOVE 65,80CNT g9SET THE ITERATION COUNT 
OV P3,°(SP) ge6AVE F3 
mov R4é,°(8P) peSAVE Re 
MoV FS,°(SP) gSAVE RS 
MOVB sOMODFe1, Ra 39GET THE NUMBER OF DIGITS TO TYPE 
NEG ba 
aco 06,R46 seSUBTRACT IT FOR “AX, ALLOWED 
hOVS R4,60“0DE geSAve IT FOR USE 
mOVB GOFILL,R4 39GET THE ZERO FILL Switch 
MOV 12(SP),P5 sePICKUP THE INPUT NUMBER 
CLR R3 g9CLEAR THE OUTPUT #ORD 
163 POL RS geROTATE MGB INTO *C® 
bk 38 39G0 DO MsB 
28s ROL FS zsFOR™ THIS OIGIT 
FOL RS 
FOL RS 
vOV RS,P3 
363 ROL k3 39GET LSe@ OF THIg§ DIGIT 
DECK sOMODE geTYPE THIS DIGIT? 
BPL 76 398k IF NO 
BIC 8177770,R3 39GET RID OF JUNK oe 


oMAIN, 


1215 
1216 
1217 
1218 
1219 
1222 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1238 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1248 
1241 
1242 
1243 
1244 
1245 
1246 
1267 
1248 
1249 
1252 
1251 
1292 
1253 
1234 
1255 
1250 
1257 
1258 
12589 
1269 
1261 
1262 
1203 
1204 
1205 
1260 
1267 
12038 
1209 
1270 


rr 
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043290 
604322 
004324 
904326 
o04330 
904334 
#04369 
004e34a4 
90435¢e 
yee3s4 
404356 
904360 
004362 
@d43o% 
0043660 
904370 
994372 
90440dv 
004402 
6d4bu4d 
9A4405 
904480 
904407 
udee1e 


w04412 
944420 
vd4626 
ANbede 
004432 
300434 
004436 
bd0O44u 
404442 
764446 
©04452 
804460 
904402 


604464 
004472 
004476 
004502 
004506 
004510 
004514 
004516 
004520 
004522 
#04524 
004526 


27( 4490) 
24eMAYoT7? 


5918002 
ous704 
01463 
903204 
52793 
a52743 
119367 
10441 
163367 
@03347 
©82402 
905204 
ave7ee 
g12095 
e12604 
0120903 
31660 
912616 
6¢0ee2 

290 

499 

630 

080 
608080 


@12737 
@12737 
pleedo 
10146 
919246 
010340 
619446 
o1eS¢o 
g177¢0 
010067 
012737 
069000 
e6a77e 


912737 
16766 
60567 
005207 
@01375 
12077 
912605 
o12004 
912603 
012692 
@o12¢01 
912600 


24eMAYo77? 15224 PAGE 24 
15822 BINARY TO OCTAL (ASCIT) AND TYPE SEG 4246 
BRE 4s g3TFEST FOR A 
TST Fa s3SUPPRESS THIS @? 
BEG $$ s7BF IF YES 
461 ne 4 s DON'T SUPPRESS ANYMORE ¥°S 
evedon bis eR ,RY geMAKE THIS OIGIT ASCII 
960042 583 bis 6° ,hy goMAKe ASCII IF NOT ALFEADY 
e7evste wOVE F3,@8 s9SAVE FOR TYPING 
004404 TYPF aT) 39G0 T¥PE THIS DOIGI1 
080032 763 DECS sOChT ssCOUNT BY 1 
6GT 2s g9eP IF MORE TO DO 
BLT es ge6h IF CONE 
inc Ba geiNSURE LAST DIGIT IsN°T A BLANK 
bP 26 39G0 DO THE LAST OIGIT 
663 “ov (SP)¢,R5 seRESTORE &S 
wOV (SP)o,R4 geRKESTOPE R4 
MOV (SP)o,R3 sPRESTORE RY 
00082 890904 “OV 2(SP).4¢(SF) g9StT THE STACK FOR RETURNING 
“OV (SP)¢, (SP) 
RTI se RETURN 
663 -S8YTE 6 s9STORAGE FOR ASCII DIGIT 
eSYTE @ ge TERMINATOR FOR TYPE ROUTINE 
SOCNT; ,@YTE ¢ gp OCTAL DIGIT COUNTER 
GOFILLs ,AxYTE ¢ gZERO FILL S#1TCr 
SOMODEs ,wORD 6 geNUMBEP OF OIGITS TO TYPE 
eSS8TTL POWER DOWN AND UP ROUTINES 
FPPSSSSSHSHSSHSSSSHHSSHSSHSSSSFHHHSHSHSSCHHHOSHHOSHHHHSCHSHSESHHEHOSOCE 
sPOWEP DOWN ROUTINE 
004552 600024 SPHRON; MOV OSILLNP,@ePHRVEC 9,SET FOR FAST UP 
000348 002926 MOV 83420, @ePHRYVECO2 3; sPRI0O37 
MOV k@,°(SP) s9PUSH Re ON STACK 
MOV Ri,e(sP) 3ePUGH Ry ON STACK 
MOV P2,°(SP) 33PUSH RQ ON STACK 
MOV F3,°e(SP) gpPUSH P3 ON STACK 
woV F4,°e(SP) gePUSH P@ ON STACK 
MOV RS,°e(SP) 3sPUSH RS ON STACK 
174332 MOV @SWR,@(SP) 39PUSH @5WR ON STACK 
#00104 MOV SP, 6S6AVP6 s3SAVE SP 
64404 999024 “ov OSPHRUP, OOPHRVEC »,SET UP VECTOR 
HALT 
be 2°? PHANG UP 
FPSSSSSSHHSSHHSSHSSSHSSSHSSHHSHHHSHSHSEHHSSSHSHOHHHHSOSHHQHHEHECHESES 
sPOWEP UP KOUTINE 
004552 600924 6FeRUPs MOV OSILLUP, @OPHRVEC 93SET FOR FAST DOWN 
veer6e ¥OV SSAVR6, SP 33GET sP 
evevss CLR SSAVRE g2@AIT LOOP FOR THE TTY 
ee0evse 163 inc SSAVKE goWAIT FOR THE IWC 
BNE is 330F wORD 
174264 wov (SP)o,@SaR g2POP STACK INTO @5eR 
MOV (SP)¢,kS 39P0P STACK INTO R§ 
MOV (SP)o,K4 37POP STACK INTO KG 
MOV (SP)¢,R3 g3POP STACK INTO RQ 
mov ($0)¢,R2 37POP STACK INTO RQ 
MOV (SP)¢,R1 33POP STACK INTO KY} 
mov (SP)¢,R0 s9POP STACK INTO ko A2 
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g 
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@ DZM9AD, P14 
1271 04530 
1272 904536 
@ 1273 weasas 
1274 0045946 
1275 28455 
@ 1276 #84552 
1277 #846554 
1276 904556 
3 1279 904560 
1288 904566 
1281 
@ i202 
12863 
1284 
@ izes 
1286 
1267 
@ i286 
1289 
a 1296 #84570 
1291 064572 
1292 #04576 
1293 weseoce 
@ 3294 vesse2 
1295 #64004 
a 1296 90646190 
1297 
1298 
1299 
@ i300 
1301 7046012 
4 1362 moeeo14 
1303 #64622 
apes 
13e 
a 1346 
130? 
1348 
¢ 1309 
9312 
a 1311 
1312 904624 
1313 #44626 
sg 1314 e463¢ 
1315 604032 
131¢ £84634 
1317 
@ iase 
1319 #84636 
& 1320 64640 
1321 #0460462 
1322 
a 1323 #64644 
1324 9646046 
1325 #0405¢ 
@ 1320 #84052 


#12737 
o12737 
10441 
904569 
e@9ea2 
eorean 
900776 
H2Q%A0 
905015 
908142 


#19646 
016600 
o65740 
911990 
806308 
0160608 
pee200 


@11646 
016660 
900Ce2 


964012 
003424 
904210 
podies 
004224 


@62644 
092769 
903204 


979797 
e0o571 
0°e457 
000243 


#04412 o7ee24 
e?@g34e aeer2s 


e47528 642527 


‘ 9090802 


004624 


000604 970002 


POWER DO®N AND LP ROUTINES StQ ve25 
MOV OSPHRAN, @CENRVEC ¢)S5ET UP THE POWER DOWN VECTOR 
KoV 6344, 08PaR VECO? 5 sPRI087 
TYPE pREPORKT THE POWER FAILURE 
SPaPYG: ,#0FD 8POwEP sOPOWER FAIL MESSAGE POINTE 
aa | 
SILLuPy KALT go THe POWER UP SEQUENCE WAS STARTED 
be 2°? 3) BEFORE THE POWER DOWN *AS COMPLETE 
SEAVRES g7PUT THE SP 4ERE 


e 
SPOWERs ,ASCIZ <15>¢17>"POKER® 


EVEN 
eSBTTL TRAP DECODER 


PPSSSSSSOSHSSHFSHSHSSHSHSSSHSHSSSOHSSHHSHSHSTHSHOHOHHCHSCH EHH ETETEOOES 
g@THIS POUTINE BILL PFCSUP THE LOWEP BYTE OF THE *TRAP* INSTRUCTION 
g@AND USE IT TO INDEX THROUGH TRE TRAP TABLE FOP ThE STAPTING ADLRESS 
g0OF THE DESIPED ROUTINE, THEN USING THE ADDRESS OBTAINED IT wILb 
9®GO TO THAT FOUTINE, 


STRAP; MOV Ke, (SP) s3SAVE Fo 
MOV 2(8P),R? ;9GET TRAP ADORESS 
181 °( Re) seBACKUP BY 2 
“Ove (Re). Pe 33GET RIGHT BYTE OF TRAP 
ASL Ka ;PPOSITION FOR INDEAING 
MOV STKPAD( PO), RO  9INOEX TO TABLE 
FTS Re 39G0 TO ROUTINE 


seTHIS TS USE TO HANDLE THE “GETPRI® MACRO 


GTRAP2: KOV (SP), 0( SP) s3MOVE THE PC DOwN 
MOV 4(5P),2¢SP) ;aMOVE THE PS# DOeN 
RTI geRESTOPRE THE PSw 


eSbTTL TRAP TABLE 


s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE POUTINES CALLED 
peBY THE *TRAP® INSTRUCTION, 


3 POUTINE 
5 eeeceere 
STRPADs ,#ORD 6TRAP? 
STIPE peCALLeTiPe TRAP¢1(ie4401) THY TYPEOUT ROUTINE 


eTyPOC ssCALLeTyPoc TRAP*2(164402) TYPE OCTAL NUMBER (@ITH LEADING ZEROS) 
STYPOS gsCALLeTYPOS TRAP*3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
STYPON 4 ,CALLeTYPOR TRAP O4(1e40¢¢) TYPE OCTAL SUMBER (AS PER LAST CALL) 


SPOCHF s9CALLSPDCHP TRAPOS(104405) --Tly TyYPEIN CHARACTER FOUTINE 
SPOLIN gs sCALLSPOLIN TRAP *6(104406) TIY TYPEIN STRING ROUTINE 
SPLOCT psCALLeRDOCT TRAP?7(104407) READ AN OCTAL NUMBER FROM TTY 
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1327 
1328 
1329 
1338 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1336 
1339 
1346 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
135¢ 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1362 
1361 
1362 
1363 
1364 
1365 
1366 
1307 
1306 
1309 
1370 
1371 
1372 
1373 
13746 
1375 
1376 
1377 
1378 
1379 
i3ee 
1381 
1362 
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684654 
784656 
wd4oo0u 
484662 
4046064 
&d4666 
we04670 
084672 
4046074 
064076 
¥04740 
we47e2 
404704 
p84766 
¥g4710 


#04712 
#04714 
604716 
084726 
0846722 
6d4724 
604726 
004730 
084732 
604734 
6804736 
66474e 
€047462 
we4744 
004746 
704756 
004752 
©04754 
#04756 
€04760 


#04762 
604764 
#84760 
004770 


27(1¢96) 24eMAYo?7 
24eMAYo77? 95322 


€89035 
e?6207 
@88070 
#00132 
960374 
pees33 
02536 
#00752 
699033 
177777 
177777 
179777 
977777 
977777 
177777 


177777 
933725 
617503 
941744 
047613 
914175 
946126 
132161 
143466 
036104 
125441 
#66240 
132367 
977777 
177777 
977777 
177777 
1797797 
977777 
977777 


977777 
peices 
60189 
Bei vee 
801002 
peisea 
884bu0 
Geleve 
901 %e0 
@01¢e0 
900734 
09100 
evelrve 
977797 
977777 
977777 ee 
177777 
977777 
977797 
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TRAP TAPLE 


TXLPC? 


TDLNis 


635 
297 
ove 
132 
374 
533 
S36 
7$2 
633 
°1 
e1 
ei 
°1 
°1 


ei 
133725 
17563 
141744 
47613 
114175 
146126 
132101 
143466 
030104 
125411 
660246 
132367 
°i 
el 
bd | 
1 
el 
eo] 
cd | 


| 
19”0 
19¢0 
14ve 
1900 
1000 
aP0¢ 
1900 
ieee 
1900 
734 
1aee 
1980 
ei 
1 
| 


SEQ #026 
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SUR Pelee” 
SWREG Heel76 
Ss¥e@ 0s ~yeeee i 
Swee 8 980001 
SwOi 3s #800002 
SWO2 & 900004 
S¥o3 s 800010 
Seed 8 yeed20 
S4oS 3 9000490 
Swe6 8 900109 
Swe? s 906200 
S408 s&s 960400 
Sue9 6s 981000 
Swi ® #08002 
Svie 8s #02080 
S41) 8 904000 
S¥i2 s eieeee 
8¥13 8 #20060 
Swié 8 940000 
SwiS 3 s '9e000 
Sw2 s&s adevet 
Sw3 8 200016 
Sw4@ Ss §¥08020 
Sws 8 900045 
S¥6 8 8=— 8 900100 
80? 8 680200 
Swe 8 200400 
Sw9 8s #01000 
TBITVEs 960014 
TOLN| 604762 
TOLN? 908076 
TIIL 40526¢ 
TKVEC s »eev6e 
TM5G #05212 
TPVEC s 900064 
TRAFVES o8ve34 
TRMSAi 085030 
TRMSA2 #05144 
TRTVECs geee14 
Txcrc 404646 
TXLPC 004712 
TYP 002454 
TYPE s 1046401 
TYPHDR 906005 
TYPOC = 1644282 
TYPON = 194404 
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656 
632 
660 
635 
3638 
$¢@2 
a94e 
o25¢ 
Sie¢ 
499e 
a47e 
437¢ 
4366 
435e 
4348 
4338 
4326 
e3ie 
4a3e0e 
4298 
4268 
4460 
4278 
4268 
a25e 
4246 
4230 
42268 
445e 
448 
4430 
a4ge 
a4éie 
4400 
4398 
a3ee 
Qhds 
628 
o3e 
016 
467s 
641 
gabe 
42 oe 
e279 
631 
aye 
627 
626 
e11 
617 
617 
gay 
826 
095 
13166 


i5¢4* 
15198 
15228 
15328 


447 
446 
a4s 
444 
443 
aig 
441 
a4e 
439 
438 


13648 
14048 
14668 


647 


$e7e 
13648 
14248 


643 
651 
G16 
639 
621 
944 
15338 
099 
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S840 


14456 


eSu 
13436 
821° 
043 
626 
46 


743 


€768 


e467 
830 
1015 


717 


651 
e364 
1e17 


622° 


623 


659 
es4 
1222 


13148 


1251 


692 
9ie 
1273 


127046 


696 
924 
idi3e 


71e 
929 


714 
933 


728 
936 
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TYPOS s 
TyPouT 
TYPROM 
TYPR{ 
TyPe 
TYP?2 
TYP3 
KOR 
xORS 


SAPTHD 
GASTATS 
saTyc 
SATY4 
SATY3 
SATY4 
ecHarc 
sCKSeke 
SCMTAGse 
SCNTLG 
SCNTLU 
scPruoe 
sCRLF 
sDEVCT 
sENDAD 
SENV 
SENV 
SETAGL 
SETEND 
SFATAL 
SFFLG 
sFILic 
SFILLS 
6GTSeks 
shlets 
sHIOCT 
SILLUP 
6LF 
SLFLG 
GMAIL 
S*BADR 
GMFLG 
OMNE® 
6MSGAL 
SMSGLG 
emMaciy 
OMSak 
SNULL 
sOocanT 
SOMODE 
SPASS 
SPASI¥ 
SPOBEE 
SPWRON 
SPRRrG 
SPeruUP 


184423 
eele30 
02402 
302420 
402462 
002504 
602470 
#02320 
001014 


981032 
eeeese 
we3742 
ee3d7ice 
#03724 
#03734 
©03762 
eeseee 
eeeeee 
003235 
©03230 
ee1ere 
#83225 
#201856 
9O200N 
o31¢06 
e2i¢o? 
ev1ebo 
901076 
010Se 
604162 
003734 
03713 
eeceeee 
@01832 
003422 
#04552 
903220 
084161 
¥41046 
¥01036 
904160 
903253 
601002 
001064 
wd1ee6 
903242 
003712 
od44¢6 
od44ia 
#01054 
o01ede 
0845ou 
004412 
604540 
wossos 
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13158 
Seie 
eos 
610 
6248 
625 
623 
749 
$168 
622 
$43 

1139 

1118 

11088 

19486 

1aaae 

1¢65Se 

1319 
gna 
9628 
933 
$748 
938 
Se5e 
$30 
$708 
svi 
Save 
$$$ 
$028 

11¢60 

1068 

11028 

1318 
$528 

levte 

1243 
948 

14490 
$31 
$si6 

11¢9¢ 
96Se 
S678 
$66e 
go18 


5030 
6%5e 
e12¢ 
837 

e32¢ 
8268 
7868 
740 


$498 
1156 
11126 


107S¢ 


9618 
9398 


S8i6 
S8ee 
faiie 
11038 


1125¢ 
11 3¢e¢ 
Rigo 


12798 
12¢3¢ 
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PACE 36 


$226 


799 
Tele 


637 


765 


193 


1064 
718 


792 
1ese 


722° 
1146¢ 


723° 


12ei¢ 


7eee 


720 
720 
1119 


eS6e 
11508 


6S7e 


7678 Te9e 


7348 64s 
1043 $117 


77¢ 


1143 


769 


11476 


79¢6 


7916 


792 


Sto 4835 


7958 
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sOUFS 
SROCHF 
SRODECe 
SPOLIN 
SRDOCT 
SRDSZ @ 
SR2ZA fs 
SSAVFEe 
SSAVEOG 
SSETUPs 
esTUP s 
ssvPc es 
SSar es 
SSWREG 
STESTN 
sTKe 
STKS 
sTee 
STPFLG 
sTPs 
STRAP 
STRAP2 
sTRe s 
STRPAD 
sTST™ 
STTYIN 
STXPENs 
STYPLSs 
STYPE 
sTYrEc 
STYPEX 
eTyeoc 
STYPON 
STYPOS 
SUNIT 
sUNITY 
SUSHR 
SeFILL 
6 rs 


eSASTAS 
oGA & 
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093224 
082040 
eeeeee 
@d27ou 
@03264 
aeeule 
eeen00 
@eVove 
904556 
o8evld 
1977797 
001032 
e06dov 
81079 
O010S2 
902036 
@82634 
ee3Tiv 
003715 
03706 
904570 
004612 
vdeele 
004024 
901036 
003214 
eseces 
eeeceo 
@03424 
003636 
g037R4 
0042716 
#04224 
04104 
B01 06H 
001042 
oe1¢72 
004407 
060331 


eens 
@01v32 


u 


24emMAYo?? 

941 95ee 
676¢e 1319 
1322 

Ivor 1320 
9616 1321 
e996 
1322 
1322 

1252¢ 1260 
Seve $89 
S$ee6 

$268 $33 
3798 1275 
$728 613 
S636 $8ee 
640 ee2 
Gaede 68y 
10860 11408 
1937 11048 
1686 10998 
$90 12998 
ideie 1312 
130S¢e 13148 
1295 13128 
$52 

908 9v9 
1317 

1317 

10378 1136 
1ee7 1074 
1092 1094 
11928 1316 
1191 11948 
114678 9315 
S608 

$540 

$730 

11680e §©119920 
4908 4930 
063 664 
1104 1105 
1109 1112 
$398 544 


1617 


1305 
1084 
10978 


1292 
4978 
9578 

11578 
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1428 


1313 
10808 


12378 
saee 
se 

1255 


1105 


12766 
$94 


i3i7e 


1087 


sage 
959 
1277 


e67 967 
1319 13g208 13218 13228 
9578 

$28 $298 $318 S338 
gee 967 102¢ 1699 
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S440 
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rs 
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sMAIN, 4 
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@ 
COMMEN 4900 
ENDCO™ 4908 
@ = epror 3848 
ESCAPE 4968 
GETPRI aoue 
@ = GETswr a9ue 
MULT 49u0 
NEWTST a9ee 
@ por 3798 
PUSH 3796 
REPORT 4998 
@ = score 3058 
SETPRI 49ee 
SETTRA 43058 
@ = serve 3798 
SkIe aces 
SLASH ages 
@ space aoee 
STARS 3798 
1257 
@ = swrsv 4900 
TRMTRP 43058 
TYPBIN 49ee 
@ rrpvec ee 
TYPNAM © 4908 
TYPNUY 49ee 
@ tyeocs aoe 
TYPOCT 4908 
TYPTAT 4998 
@ SsEsca ayue 
SsNEwT 4908 
@ ser 13058 
$sSE™ 6188 
ssskie aoue 
sEQuat 3798 
9 SETUP 3798 
»SACTI 3798 
@ saere 3798 
,SAPTH 3798 
SSAPTY 3798 
@ scar 3798 
,SPOWKE 3798 
»sRDOC 3798 
@ shear 3798 
»STRAP 3798 
»sTYPE 3798 
@ stro 3798 
e e ABS, 006331 
e ERPORS DETECTED; 
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3°28 
See 
$24 
$56 
534 
11es 
4% 
1239 
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4282 
1020 
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1320 1321 
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RUNeTIMES 11 @ 3S SECONDS 
' RUNTIME RATIOg 6327162386 ,6 
CORE USED; 20K (48 PAGES) 
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